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FOREWORD 



• The Automated Instructional Management System 
(AIMS) v/as designed to monitor, score, and 
evaluate individual students, groups of students, 
and curricular content in a course environment 
designated for educational management. 



• The AIMS System was designed around IBM System/ 
360, and Version III was generated with Model 
30/Release 20 IBM Disk Operating System (DOS). 



• All source statement listings contained in this 
manual have been developed v/ith U. S. Office of 
Eduction funds under Research Contract No. OEC- 
0-8-080157-3691(010) . 
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? iKhC •= I.-itC + 1 

i iLKh = 0 

Ii-( 121)+ 10176) 70,71, 70 

70 'AfNlTC (^,10) IKLC 

iO hOKKAT (« KfcCCKU HAi BAU uUAL I rY--K£CLRD IGKORhO •/» 

CO TO 23 

C 

C CHirUK FCK tjLAiNK STUChM COURSt ivU/^-urrP. FltLO 

! c 

71 IFILOuKdMOl) )i- LCOK( l.\(0^) )+ LnOK(IN( 07) ) ) 21,24,21 
21 \f.KUt (3,2) IHfcC 

; 2 POKi'AT (' RLXGKU ',1J,' HAS A .3LANK li* i>TUULw f COURot ?>iUft5tK I- 1 lL 

I* ) 

123 

' JOT (i) = (4032f l.';{07) ) / 206 *10a 

1 +(40 3ifIM0'^) ) / 256 *IQ 

2 +{^{ji2+lN{0i) ) / 2d6 
( iF{UUT(2).Lc.Ji.TUU) oU Tu 1^:3 

I tRR= IcKK*-! 
.;UH£ (3, 540) li<tC 

^J^^ :>4ai;FUR>;A7( • RfcCUKu SIjt' CUUKSc i^fuOc.sT NUKdti^ TOO LARbb — r.l:CUKU 10 

ERjC lo^ito •/) 
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C 

t CHtCK hLK ^;LA^Ki If-{ Ct.!^PLcTiOA lii't 'rL tlL 

U3 IM.LCtX Uv(^) > LuCK( i vl ::?) ) i.oC K ( i /: J) ) £o,^U*,.io 
26 %*i't< ITc i lf.^) I i<tC 

iSi-F TL .^Li<G' ) 
oUT ( lo) ^ 0 

L 

(. CHcUK. FCS OLA^iKS lu ut:bi^itir;T PfcLu 

C 

3C vvklTf: I RCt 

4 FOK;-iAV {» kcCoKU HAS bLAi^KS iU SlOMLM HIlLj * ) 

JUT{3) ^ 0 

00 rc 32 

ii JUKI) '+0j2^ti/( 14) }/2*>6 

C CHECK I-lH oLAiVnS Ik vuLUMc FILLD 

32 iF{LOCK(lK( lo) )^-LuCi^( ii\{2i) i i :33,3'Vt33 
iJ {3,b) iKIrC 

:> hljRhAT {» i^cCGKO Si3»» KAS aLAi\KS IN- VLLUMc riiuL* } 

» I tan 1" I 

bu Tl; 35 

34 uur{i) = (4032+lN(21) )/ 2:)6 ^= IQ 

1 +(4032+iW{18) )/ 2r>6 

IhCUUTriJ.Lc. JLLSb) GO TO 35 

':riRll\:lifO50) IKLC 
^i>0 r-OR.MATC' Rcuu^u Siit* VOLUMc C-JU LA^Gl: — KlCUPlj lO^u.-.b-J «/) 

C 

c TcST tvj^e i-uli: 



!!; 



35> GUT (4) = 4 



C TfcST CUUJ^Sb iJUi-ibER FlhLO 

C 



ERIC 



It- { LGOK( iN(3) j +LuUK{ ) +LoUK( Ijv( -i) )+L.Ju!\{ IKC 12) » ) -^1,40 

40 WHIT'd I3,lfc) IRErC 

.16 FOkf'iAf I • KtCOKU »,I3,' HAS CUUHSE: NU^BcR TRsJUBLfc •) 
OUT (5) = /:i 
GO TO 42 

4i.,;GUr{5) = { 40J2+ira 12) ) / 256 *1000 
i +(4UJ2+IN{09) ) / 25b *iOC 

1 +-(4032+lN{06) ) / 256 *10 

i +{4032+[i\(03) ) / 256 

OU 1060 jrj{iCK = l, LO 

IF( IVhCrc l,JDliCK.,OUr( D) .i\c.CUT(31 ) GOTO iOoO 
lf-{ iVtCU2,J0fcCi<.,0Ur{lJ),Nt.UUT(4»} GU lu iUoO 
(J uG TC 2010 

1060 Ci^NriNUt 
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LIh Ai rlLcS.*/# iOX, 'PLlAS: uMCcN i-fLo. -A.uvt u^-^/. KcJuClLwM 
Tu 

C l^Jjt r ,>J- ^^^ciTit-l\i A.Vo <- w> 

C 

N = 14-:, 

UL C i J = i y 

I J- { i?\ ( J )-Io^i48 ) <?0^o L,ou 
uUT (12) = 2^ - 

L 

C uUT-.'UT Ar^l. SstT j;bS:'UJ\Sr: 

L 

67 1 =lbTfc3 

J J = 1/ 

K = I + 3 
L ^ 0 

JJ ^ JJ i- 1 
Ou 63 i'i = 1 T»v 
L = L + I 

I h { IN { I^; )- 1644 £ ) 64 ,63 , c4 
64 jUKJJ) = uUKJJ) + 
63 CbM[,\Ub 

Gjr(JJ) = CCHJJJ + I 

C UDr\t: — Wf<IT£ Ubf H'cSPCrs.>c TAFil Ai\0 &J Ui At^AD .\LW WhCOr^u 

C 

il-(I£RRl 55,36, 5d 
55 WRfTE (3,8) IRL-C,IhKR 

liNuRcC ' //] 
uu TU 23 
^56 CGNTIWUC 

lF{?sOTAPfc<.t:0*l) TO 2i 
WKlTh { [41 GUT 
00 TO 23 

90FijRMAT( LHO,lOX,»r;lHS l^A\<Y. SCNS£ HKOCcSoING rOR SlUCY GU IDL rij^i-t 
KDCoOGo} IS CO?<PLl:Tb^M 

tif.i Tt{ 3,5 30) NUMGG0,NU?'-i5AD 
5300 F0kiMAT(2GX, ^NUrfUhR uf UfcCGKUS ACCbPTtU, »,I4t 
L /t-:iGX,«.vUKbeK OF K£COr<bi> KhJfcCTbD, «f4) 

bf':0 

FUNCTION LUCKllTtST) 
/»\fkGb^-2 rr£St,DATA( 10) 

uaFA CAI A/»0' , » iS • 2S * 3' , f • 5' t 'o* , '7 »& S V 

g:A^E:^:J7^ 
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LooK - 0 
i,L I = 1 , I U 

r}-(iTtST-jATA(i)} 

LCtMl i.sUc 
LCCK -= 1 

>>Oc.i L-JT L.-^i".lJS{ ICMkL ,t-lhbr ) 

LoC-ICaL*L FlKoT 

LLOiCAL-i CH^.I<LY 

irircGtx RICHT,L6rT 
U:tr:C£K^i I VbCT l-^i ,iu,'iG ) 

[:vrtJi_i\*2 t!».ULS(i^:> ,*Vu.-«CUL(2J) 
L.>.TLGcK*«i SHIf-Ti 

ji\Ju «CGLi/4, lU,l6,i.c,£i,i4,4v,46,e>^,oS,C4, 7U/ 

u^iTA Mjr'.UUL/Z,o,a,i2,i4,16,20,<iM,<.-o, 30, j2, 36, 33 ,42 ,^4 ,4 d , d J, 5s , f>6 , 
2^.»<j , ?:-2t iso-, Ob/ 

C u H i\ 0 !\ / F I L f: S / I c u , I P C , I P T , 1 I , I J C H , H £ 1 . 0 £ :< , 1 0 C T , i w o 3 T , 1 d K U , f S C G K ^ 
2, I ThXl ,5YbTL"''! 
Ci j-.«OK/ChKKfcC/ IVeCT 

LEFi-l 
r;.tGHr=2 

Ih (FIRoD ASSIGN i Vb i LCO 

Lh ( .i><UT.rlf<bT) ASSIol^^ 2U0U lb £LL'G 

G<J TO iLoG, { l,2C0C) 

2 Call crlIiv.(akEa) 

CHAr<LY=.f-AL5t. 
ACT 10N=. FALSI-.. 

IP { (Ai<bA{i).E<».76S) .AN-U. lAKtA{2).cu.i0i)d) )UU TO VV? 
XF I {AKfcA{ l).tQ.76S) .AivO- { AKtAt 2».»:w, 76t.) ) TO 1000 
IF ( (A.s,t:A( lJ.tC'.76b) .AWj.{AKEA{2) .bw.204{,) 1 Gu Tu IOOj 
If (lAatA{.l).CC.2066).ANJ.(APvcA{2).tn,;.206u} ) GJ TO 1000 

1000 Ob 1002 iK^lyiiU 

A.; !:m I K ) -LGT T t ( ArUl a ( W ) ) 
luu? COuTllsUh 

1001 FUKiMAT ( IHl,/ iH I, ****** JUB STACK ERROR *************V:****» ,/ } 
lr.KlTe {lPr,iuOi) 

WRITE: (IPT,iU03) AftcA 
lOo's FCjftfAT {Lh ,»TH1S CAkO RCAO f .N dIi\AKY- »,dOAi,/lh , 

2 » KEPAIK J08STACK ANfi CANCtL THIS JOB *******>,'-.***<:*^.**=!:*:S. , ///// 
5///) 

[F {CHAHLY) GO TO 200G0 
Pa use 

GO TO lOCO 
<»yy ACTlu;><=.TRLlfc. 

OC TU 99999 




20000 cat LXf r 

C l.j hA.- i; IK A:-. tbCOIC CakU IhAyt uF A // JOb CA.'.L, 
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ERIC 



C tf- Trie iUPi.K\/iSwK CA\- Ji;: twTbR.<eL/ Fu o iVc 11 A C.^nJ 

'.C .;b..t,Vh Thi: tOMnLM'S CH,A.\^LTt^6 Vl^ui< The hoLLLfti.\u CA.:ub- 

^-V-i^^X ^i'.« 'C;:^*^^::;.^5v*J^^^;{::f<-.^^V v ^- ^ v * ^/ 4 1: ."j^ 4^ ^ ^ ^« :^ -l: V * 4: V-r 

C tF ( { ^-lAt A { I ) •iiL - Tob) .Ai'iu. ( A'L^«{ 2 ) •tVvTo ) bo lu 30Go 

Co* * 

y CjOCC JL 2Gvi lK=i^cjO 

Vr 

t 

c c * 

C nKEA( lM=Lc I TEK{mK£A( ifvi) ) 

CC^ 

CC- 

0 UL 20G2 iN^lr^CfZ 

C THlo LCLP PACKS ThE CHAkaCTlKS Twl. FC Trie HaLFv-uRu 

U \» v> 

u 2 0G2 A i^cA { I .\0£X ) -in I P T S ( Ak ir A I E ) , i , <5 ) +Anh A { I U-i-l ) 
C 

;2 ^< <^ V> 4^ ❖ V * * * :f . <i 4. * * 4^ * :^ 4 4- 3^ 
4: ^ * <^ 4: -it ;^ 4- ^- ^> :^ * * ^« V <i ^ 

^i->9^9 Cu^T{^Uh 

v.. 

c 

(. That h.N'Di THc jGCTiu.N THAT LOCKS FUK IHt thO 
C 

0 -5 ^- * •;• * 1 * * * * * « 1 4; * * * « -^ * ^. * 4: * * * * v 4- * -t- * * * * * 4 

c 

5G00 CuNl'lK-U'c 

IF (ACT I C.J) Gu TU iCOOO 
«KcX=riRfcX+i 

C S£T THE CUUr>:TfcRS TG ZiiROjAND ThC PHYSICAL ktCCRD NUiVGEa TC .Ni<l£X 

.<hC0(45 )=iM.HeX 
RLC0{44)=0 
RECD(43)=0 
DQ 3 iLCijL=l,S0,2 

[r (ARKAdLCGD.Nt.U) RbCD ( 44 ) = RtCO (44 ) L 
C PtHf-UftW CHCCK FOK ILLEGAL COLUMNS 

3 CuNTI.NUt 

uG 4 NLCL=l,2 3 

NufcX=NUfiCOL(NLCL) 
C CC'NVfcHiT THE NUHCRIC CiJLUKNS Nuw 

Ak { N D b X ) =NU H Sfc« { AR fc A ( NO E X ) ) 

IF ( ARtA(ND&X).llQ.-i) RbCD ( 43 )-H&CD ( 43 )+i 
C Ai\0 UPOATli TKt MUMfcKiC COLUMN ERKOR COUNTbK 

4 CiiNTI.^iUfc 

00 'j IQC0L=1,L2 
C HUVfc r-rit (jU..bTIuri tOLU.».f<S INru IHt Cu.<i<bCT A.^l-A 

- PAOe. ^ 
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ERIC 



AlFS [11 SLUKcfc ST^rc.*^*c.Kr LC^TIuC 

c 

.^rC 0 ( i ) = ( AKi: A { fcvJ ) * 1 0 ) r Ai;i- A ( o2 ) 
KUCO ( 3 ) - ( AKuA { ) -10 ) +AKfc:A{ cb } 

Ki:CO( 5 )=( AktA (42 )*L0 J fAi-icA ( ) 
K C { c J - ( A A { 4S ) * lU ) *-AX!: A ( G ) 
rCi=L!:r7fcK( AkEA( 721 ) 
iL;2=LETrtK(ARC-A( 74} ) 
I03 = Li:nC<<(AaL:A(75) ) 
i 04~Li:rTb.UARiiA(7<5) ) 
lu!) = Lt-.n l:K(AKdA(dO) } 
C bEt rtriAI Kii-vD OF uAKDS AKt: i; i\ iT.RR.t 

ih { iCULj£, cQ,l) GG TO iUO 

C 

c I T' s A STuotra 

^cUbC 2) = l(( AH£AtZ)*10) + .4ktA{fe) )«-lu)+Ak£nl8) 

Ke:CO( 13 ) = ( AKcA ( 24 ) *U) ) +AKliA I 26 ) 

!< 'cC D { 14 J = ( Akc A { i 2 J * i 0 ) i- A K L A ( 14 ) 

KfcCO{ 15 l = ( AHcA{ia)*10)+ARrTA(2UJ 

K£CO( t6)=(ARi:A(J0»*i0) <-ARhA{32) 

K fcCO ( 1 7 ) = ( AKhA ( 3o ) - to } +AKiH A { 3 i ) 

KfcCD{7)=io.i ; 

CALL PaCK{ Id2, l&2,F:cCD( 5] ) 
Call PALK{ 104 ,IDf>,KfcCU{'^) ) 
GU TO 199 

c 

C bcLOi-i Hr:RL, IT'S GuFVA lib A HhAU£R 

100 ntC0(2)=0 
KlcCD{ 7)=U 
.■<tC0(8)=G 
PveCD(9)=0 

Call PAtK{ l0i,i02,R(iC0{7n 
CALL PACK( I J3 , l04TReCU{y) ) 
i<fcCD(9) = lrj5 
RECD{.101"0 
RhCDl 12)^0 

Ri:CD(i3) = ( A«'<EA(24J*iO)+ARi!A(261 

RcCD(U) = {{( ARifA(2>*10» + A«cA(6) )*10) »-Ar<fcA(d) 

RECG{i4)=0 

RiiCD{13) = 0 

RECOt 16)=0 

KfcCO( 17}=0 

HECO{ LO}=LErTL-R(AREA(SU)) 
C BUT NUT OVER HERL IT DGtSN» T 

199 CALL !XEftGE<!<BCi}, ICNTKL, FIRST) 

200 CGNTINUt 
Gil TO 2 

luOGO CCfvTIrtUe 

kiND FILL ITAPh 

2000 CLNTINUL 
RETUai^ 
END 

S Ub« Ou T I « t M t R G £ { R t C D , I C NTR L , i- 1 r< i T » 

y4L.u ..Xa . 
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ERIC 



f, i A i ill •:uU.> i. L 1 A f er^ii: ^ 1 L i S 1 I .\L. 

1^^ 4. s^ t ^ ^* < ;• -t. « J.C * ^. 4; {, -t. V * * * 5? t (. * * « * 0. * .r * Ji * * * .f. * * ^ 4. .-^ >:•. « * v v v- (f.^-. <t * 5; .■>,- ... t. 

V * .;. 4- ;s =: * * * * * * « * a-. * * ^^.i^i^i- « ,n * v * ^ * ^t. * 4. * * * * * * i- * ?: 4. * -i. <= * 4 <. * ^, ^. « 5 * ... 4. 

C oUb.-.t-uT I >.-L Mi:kOc(kuCD, ICNi KL, IVtCl ,r.l tlSV) 

C Il-iS Su*J:<CUTINl hAisOLtS The >.hlvOIKo uf- [-MFUT CA(\bS 

V. li\rC Alf-.S TAP I .NcCukU rCishi^X, 

t iT ALSb HAiNOLLS Tht SlAuLt A<\u GoUbLt OtCiSlU^ AUl I-UaKAT T Ik'j. 

C. iUrfKOun.'sL ^UUoLtAix'C SUaaCUTJ.'M: iliibLc HrtkDL.: CUUoLt AiiU Siio^Ll-. 

c 

C * * * « 4. ^. t ti. * * <. ^ 4, -i: * ^; 4: ^ , <, ;C; <, .-J 4 - ^. i ^. ^; * ^\ v * * < s -f. ^. * ^: * <- 

.JH'.LN'^ ICW ICfViT:'.!. (1:3) 
l.N'TtGc.^ OUTAi- 
l)vr{:GtH*2 loAVL 
rKT<.ucK*2 Si J 

IWiEGCK-i CLtS 

UxrtGtK*2 ChK,RC{4i)) 

ltHTii,il\^-i-Z TY, nA?L.,jTYPc,WOkM 

lMcOkR-i-2 iKUh 

oCMfiON/ CHK !< f.=C /iSicCT 

LOGICAL* I hCT IG.\ 

LuGiCAL*i PlKST 

LOG£CAL*l OfcLcT 

c VvU I V AL cN C b ( 0 1 T P U r { 1 2 ) , T K UH J 

DATA DE/»Ut»/,LL/'Lt«/,T/'TV 

DATA S/'^'/,u/'0»/ 

l?T=3 

ivuKi\={Cj\rRL( 3 ) 

jrYPt=lCNIi<L(4 J 

iTAPt:=ICNTKL(2) 

NkKTY=ICi\iTRL{ 5) 

lLf:S=kr.CD( 1) 

OELhT = .{-ALSfc. 

U- ( -f^;OT.F-XRST) GU IL, 100 

C rhlS SLCTiON IS GMY cXECUrtO OtiCt f-lJK ANY CALL TO ClfO 

PiRSr=.FALi 
OG 1 li\=i,6 

C THAT CLhAKS JH£ GbTPUT R&CUKU 

1 LUTPUT {lrx) = a 
C 

C ThQ.!\ SET UP A FLVs RL-ALLY !-Ui\' PARA/^ilFiKi 
C 

GK;<.RC{5]-=[GiVr^L(.L) 

ISAVe = GHKRC(*5) 

CHKRC(3 J = IC^TRL(6) 

CiiKKC(2) = lCi-^T?a(7) 

uUTAP=IC.\TkL(y} 
G SfcT THH SEQUtNCb ,NIW&£.-<S fcuUAL TU Z£HO 

lStw=0 

C AND DROP THkU'JGh TO AN EXtCUTIGK THE OTHtk JUNK AND SUCH LlKt 

100 CCNTINUL 
C IHIS bLCriUfv IS AITCMl^Teu l-U. liVtKY CARD 

PACfc U 
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Mlivi ILi b(.UKLC jTATLi-iLhr LiiTlXt 

K.ALL f. <^ K L i< ( rv £ C ij 1 C hK K C » I- b { H L T , I 5 In-, 1 J T Y P t , A T i L. i\ ) 
t IS Ihc KhCURIJ L-uGAL 

IF ( .A'OT.ACi ICa) GL to 77777 
! f- ( IS;:(«.GI . J ) bo To 2uG3 

IF { (Kf.CD< /) - L^-ur. ) .AnD-( Rf:CU{ v-i ) .bw.Lc. I . A,\C . ( HtCU ( v ) .t- . 1 ) ) UbLi. r = 
. T K L c . 

Ih COfcLL-T) bo r< ^oCo 
li-N- f =-0 

t If li JbiV'T Iht FIKST CArtO, I ALHtAlY KisGk ALL ^iBGUl LT 

C bfcc WHAT :<Ii>i(J Cb CAkUS J'HtY AfNt 

it- { Jl YPi., n bU ro IGbC 
V L = hLAJLP,, c^bTULLM 

C 

C T.nIS >'-.t.XI SirCriGN LOOKS Furt Tht CA^u Ii'i j AiK;. tsLCblxLi. 
ANb .^C-PcF'JLLY FiKUb tl 



IF ( lVtCT{ i, tOECK, ILhS) .WL.;<CCD( 3) ) GC Tt. 
It- (.lVcbT(^,[UhCKt{Lt"S).r^L.KeC0{4) ) GO TO 
GU To 5 
2 Cl^hTlMJt 

bALL ukHlXiCO, libwt JTVPir., ICMIkLI I ) ) 
URITf lii^T,:>) 

.5 FbN?-'AT ( Ih t'PtwocSrLD LLSSGNtScGMfci^iT AMU TYPii to.\'"I cXibl IN :• 
/S LeSSO(\' DATA riLfc^. PLMASC .-(C-bHfcCK. • , /ihG, « ABGVt CARt; KlJiELIcU* 

77777 DC 4 ti^;^l,o-3 
4 GUTPUTI li\'>=0 
13L0=G 
'./C TO 99999 

iTY=IVHCr{:;,IObcK, ILGS) 
If- {iTY.tt;-0) i TY=S 

fi- (iTY.fcg.i) nv^u 

r NU.-4= I V£C T { 4 , I OEv,K , I LL S ) 
bC TO 20 00 

C 

C THAT'S \n6 buCTioN THAT FINDS CUT ALL ASOUT A STUOcWT RtCOKU 

C 

C ir,lSiQH THE blH£P. HAND, OlSCGV'bkS WHAT GIVES A8UUT A HEhOhR CARD 

1000 CbiNiTlNUtf 

C THib SECTION HA.\IIS SURt I HAVE DATA UN A HfcADtK CARD 

iF( (KECOC iO).i-^t.S).AND.{P.ifCD{iO).Ne.OH 
?. CALL r:RR(KhCO,IScO,JTYP6y ICNTKL( m 
[r-{ (RLCOdO) .^T..S). Ar^O. {(U:CD( iOJ.NE-O) )WKITd { IPT,lOOi) 
IF( (KtCOI 105 .Nfc.S).ANO. (RECO{ iO.Nfc'.D) ) Gu JO 77777 

1001 FORMAT (IH NO SINOLfc GR UOUdLh INFaHiMATIUN OK HEAUhK CARD»,/IH 
^J0,» ABOVE CARO RE JbC TEO. • ♦ / / ) 

I IY=RtCO( 10) 
I .^!UH=0 

IF ({KECD{10).£C;.S).ANU.(R£CD{i3).LE.48)) I,NUM=2 
IF ((REC0{ia).t:Q.S).Af<0.(RECD(l3).LE.24)) INUM=1 
IF ( (RtCD(lO) .cW.D) .AiND.(RfcCD( 13).LE.4Q) ) .HviUiM=4 
IF ({RbCD<i0).Iry.U).AND.(R£C0(L3).LE.36n INUM=3 
IV- ((RfcCD(10).nO.U).Ai\iD.(RECO( 13)*Lb..24)) Us'UM=2 
IF ((RF:CD(lO>.bO.DJ.AND.{RECD{i3).LE.i2)) lKUM=i 
IF(iNUM.GT.i) KfcCD{6)=INUM 
IF (INUH.NE.O) GO TO 2000 
C THAT'S IT 

C OEAJ, 0. S. YUU ."AVi: HAOE A UOtiO, THE RRLVIOUS STAJEMENT vsAS INSEKI'i-Ji 
PAuL -LZ - - 
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C IL' cCKPcCT iHt. f-ACr ThA f fHt.rlL k.Ai, N'C WAY L,f- T^. UPOaVIwi. :<f:C!;{w) 
c r-Ji. A MUL r I-Ca.^i) I'tAUcK • IT i\i.uLJ or. CuNAVSciTl Y L,.\jl. . a. L. 

CALL. i.KK{Hi:Cb, li,CC» ol YPt, iC.MKL ID) 

lOij^ hOKi.AT ( IH t'liWALlu Ur^ .-llS^Sti'.u uii"!*. f-l.^ T Mr ..L'l'* t>LK Ur <tCCkijS'r/i 
^HO, 'AuGVh KcCcKl. Kc JlCI bU" , // ) 

L iHIb kfixr cfcCTiO.-i ofcfci WHAI Tb uL i\i^XJ 
C 

2000 CONTlKUh 
Ti\U<'->=0 

I STAKT=JLa 

II- ( ITY.tvJ.O) lNCRt = i2 

2002 CJTi-Ul { iiv) = 0 
2^03 ICNT = lC;<r+i 

I'r (DriLtJ) I i= I CU F 

li- (DSLBT) GO Tu ZOOo 

ir (ITY.ciJ.S) CALL S i KGLt ( R hCD ( Id ) , .\Q<iS ,NKf; T Y , f-.LX C ( ^ ) , i\L,.S » 

II- (irY.fcw-O) CALL OGUfcLh{!<L-CO{ id) ,NU,M) 
ii>TART=loK { ICWT-D-vlWCKi::) 

ir {/vUH.f-O.-D CALL if-k^ ( K tC U, I SbC , JT YPt , t t.^il KL ( i ) ) 

IF {i\UiV,.ti..-L) WHlTc( IPT,20U5) 
ZOGj i-Okf<Af [i'ri ,«EhKuKS IN '..iUcST 1 u.'m COLUMNS, LH ABuVE CAH'J KtJtCf 
2r:D» ,//) 

IF (KUK-tU.-l) GC TO 7777? 

Uu 2004 .lh=l.SrAAI ticNU 

IUN=IN-( { ICWT-D^i^IfJChE) 
200^ <JU rf'UT { { M ) = RC-CD ( lUU ) 

Tl^Uh=TNUM^^!U,M 

2.00 1 It ( I CW r . LT • I NU K ) K ET UK iN 
UUTPUrt i2) = TNUH 
IF (lTY.hC-..S) OUTPUT(10) = U 
IF {ITY.cC.b) OUTPUT{iO)=l 
It- ( ICMTKL{2) .r>lh.2) GO To 77777 

6002 CONTIWUt 

V-.RliL (OUTAP) (UUTPUl ( INK) , [NK=i,6i)) 
Mil Tb{3,6003) (GUTPUK [OUM) , 10U«=i , 65 ) 

6003 F0kf<AT{4{20L6,/J ) 
GU TC 77777 
CONTINUc 
CHKftC(5)=ISAVE 

oOOl CO NT I MJ I: 

SU8KGUTINE ERHbK(R£LD,ChKRC,AKcA,S£Q, JTYP5,ACTiaN) 

C SUexOUTiNiZ l£Ri<fcR 

C THIS PRuGkAi"? CHECKS FOR tHKORi IN RLCORDS 

C 6Y DfcNNiS 1. SCHNtiDEK 

IMcGfcK SEQ 
lNTb6f:R*2 iCRlrS 
li\TF&CR*2 JfYPt 

f.Kri:GLR+2 KiX0{'i5) tCHKKCC'^S), AKGA{6'>) y lKFUR/.( J.2) 
-P-AC.6 - -- - - --- 
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ERIC 



hlt-Z ill SLuKLe. bT^Tl.^'i:^T LISTlM; 

Logical*! ljnthl (^tS) tLi\ ikn "ibi 

LuuICAL-L UhLi-T 
LublCAL*l ihTCy lL'wuL,AC ^^L^,H 
LuGIwAL-L FALot:»rkOL: 
LoOtUAiL^'i NUi.i 

cwUi VAL'f.i\'Lt{L.v TkL ( i ) ,^br.TKL( I ) ) 

u t. ht' iJ^ / S Yo T i; K/ A L t S S T Ni-J tt K , .xRL A , I il o ! , .\ i. 1 U I 

uATA S?/' '/ 

UA"(A ur:/'£jL'/,Li./'Li-'/, T/« T/ 

.1.1 OOLL =0 
iCKc^ = CHi<.KC (-J J 
irM -i 

^fjMc>~-i-AL5!:. 
i- ALSt:=.rALSr. . 
TKU!:=.T.-sUfc. 
P-.r-ALSfc. 
f LCUL=.FALSfc. 
ihTC=- FALSt. 
CLLtT^.hALo.t. 
DC 1 i\--L,45 

1 uOl\T,<L( i\> = .FALSi:. 

li~ (isE:CL{'^3).iNE.O) .\UyuS-.TKU£. 
If- {RhCDl D.Lb.O) CGNTRLC l)-.T«Uc. 
If- (RfcCD(l).Gf .iMLeSS) CQ>11RL( 1 ) = .TkUC. 
i!- { JTYi'L-L<>|.i) GC TO 2 
C JTYPh = l rOK ni:AC(Ekt2 t-OK STUDLM 

ff- (HECD(2) .bT.i-JbTUUI COfjTRL( 2 ) =. I RUfc. 
Ih (^fcCD( .LCD) CGNVRLi 2)=.TRUL. 

2 II- (ReC0(3) .Lfc.LHKKCi 3) ) CLfffkL ( 3 ) = .TRUt. 

C CHKRC(3)1S LOVfER bLUf'iD J'OR SfcUMfcNT nUr-dCK 

C Cri;-;RC12) LS UPPER SbUNC f-Jl> itGMfc.sF NUf^etiR 

IF (KtCC(4) .Lt.G) CQNrKL(4)=, TRUI:. 

if- (H£CD13) .Gr.CHKkC(2) J CO.\THL ( 3 ) --.T kUfc. 

It- {tXECD(5) .:«!£:. CHKHC( 5) ) ClMkHS J = . fKUc. 

If- lRi£CD{o) .i\t:. (3'cw*-ll ) CC:\T:<L{u) = .TKUt. 

IF ( (RtCO( /J.CC.uf:) ,Ar^U.(r;t<.D( d).r.W.LL) .WjD. (KL-CO{--)).CW.r) ) ULLcT 
2.TkOE- 
ir- (Uh.Lf-.D GO TO 4 
IF ( JTYPE.i\'E.2) Gu TO 3 

GO TO 4 

3 IF- ( (KhG0{7)+RCGD(a}+i<LGD{ 9) ) .fcC-.O) ClNTRL ( 9) = .ir<Ut. 

IH ((JTYPil.LC.D.AND.tKcCOC lOJ.cO.SP))- CGJ^TRL ( 10) -= . TkU£ - 

IF ( { jTYPt.EQ.l).AhiC.{ (aECO( li).Lb.0).CR.(RtCD(U).GT.(24*b*iNRi:A) 

2) ICOHTKLdD^.TKUfc. 
IF ( { JTYPK.hu.l J .ANU.( (RfcGU(L:j>.LE.O) .0R.{ RhCD( 1 3 ). GT .( 24*NRt X ) ) ) 

2)CGNT.HL(L2)=.TKUfc. 

4 IF (R£GD(44) .W£.G) i LC'JL=. TRUh . 
IF (StW.Ew.O) GU TO 100 

G SECTION BtLCh MAKES SURfc OF 1.0. AP.&A lOUCH 

n- (jTYPE.Ey.i) iNoex=io 

IF {JTYPE.bCi.2) INDEX=9 
Do :? 1 = 1,5 

IF (R£CD(I ),.^l;-Aki;A( D) itKH=IERk+t 
3 CONTIf^Ub 

0^ t 1=7, INDEX 

IF (.-(tCO|{).ivil:.AKfcA( I)) IhRK=IcKk + J. 
P^Gc 14 
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I J- { [t K.-!.i ^«.^J lcirC=.F<ALSL. 

V- olLU'a Hc!«.i:»MLL I :> uUl P-JF xjt\ ,< ^ ■.oTt*UT 

LoU OL 10 i i=l,^5 

IF { -I'^ur.CuisTKL ( U ) Gi- Ti_ lui 
ou- TO iG/i 
101 CUSTIWUL 

IF ( iLCuLJ GO TL iOZ 
IP (IhTC) GiJ ru lU^i 
IF (NUMo.) GO IL iOk 
700C 

cNTi-Y iKhCKfXO, ShCJlYpf. , lC-.<uS) 
iCic CALL iNi-L{ iNi-GF.H) 

U;3 rORf'Ar (iHO,/IH Carl lU iiKKC.> JbcS :NAMC ' t'^a^, '.jX, • JATc- 

• ,<^A2,f3X, «TIlMt- 't<(A^,' «****<.**^=*^HYSILAL KhLCkC- - »,ly,/lH , 
iVKl-y tbvJS SCCUfc.vCt ^G.= 'tU,' Card SfcwUL.vCt >\{j.~ Slit' !Yf»; OF 
'i CAkuS •= Slit' (i = HcAGfct<T2 = bIULLM ) » ) 

.■:K(Tt {1?T,IL?1 iCRtS » i<bCO( !5 } , KcCD ( 1 ) , .^cLU { 3 ) , ('i } 

J,17 FDK.-iAl ( IH ,'COURSb Bl:li<o PxiXEj-SLO = 'rl^t' COLrtSf. NU/,6L>^ OM uAKU 

lb (JlYPt.LciJ WRirfc ({PT,ila) t<bCu(li),t<.-tU{l J.»,(!<h<.i){.N>,.'^=7,'5), 

Lies HuRhAT ( Ih ,«^iJ^tthK GF ■^U'cbllCKS - 'tlZt* .^iUWsi.^ bf SuL JC T 1 un'i, ~ « 

<:»I3-T« I.J.FIcLO = SiAZ,' {b> uK (0) ^ 'AD 
ii^ ( JTYPu.Lw.Z) kiKlTiz (IPT,ii^) R!-.CU(2) ,(f<fcCO(N) ,.-^=7,'J) tkuCuMln), 

^Kt:CU(li3) tRfrCOdd ),RECO{ io ) ,;<bti){ 17} 
11'; Fbi-'i/'AT (IH T'CGU^Sh STUOfclsT i^Ui«^l:R = Sii,' STUbLiU I.O. = 

^ *3U2,* DATL CN CARD = • , 12 » * / • , 1 2 , » / • , 12 , » TIKL CW LftRO = ',{2, 

J*.' , 12) 

wRire (iPT,i2i) 

121 FuRi-fAT ( IH ,» Ir ,< k 0 X Z 

^ , J 

IF IHIUULb.cC.ii RETUl^K 

IF (DfcLen wiura (iprtii6) 

116 FCRMAF UH ,»THIS KtCJku HAS Itbli FUU.VU Tb BL A bLFTt RcCurviJ' ) 

IF (CuK'TRL(t)) i-,!Ur£ (IPT,IC^} 
104 FURi-'.AT (IH ,'LFSSON NUi'IdeR KI I .NO ,UNIriT ELL IG I 8LL Ok Ml ■3-^*A^CH. • ) 

IF (CCu'lRL(2)) UftlTE (lf'T,iU'j) 
lOb FUKi'lAT (IH ,»CGUKSh STUULNT MUKiit;?' Mi SS ING ,UNKcLUGi\ 1 ZABLu OR LXCth 
203 SYSrtK L I.''.IT/iIION NSIUii.') 

IF (CuNTkL(3)J WtUTL (Ipr,lG6) 
lOo FCRhAT (IH t'SLGMEMT ,VU«6£R HI SSiKG,Mi SPUNCHhO LR O^sRtCUGMZAliLLt.^ 
2K PKcVlOUS CAKCS IN RbCORU 6AD.«) 

IF {C0KTRL(4)) WRITE (iPT.lGT) 
107 FUf(MAT { IH ,»CARU TYPfc iNUMBCR MISSING CK U.\Kfc:C0GNI7-AbLk . • ) 

IF (CCNTRL(5}) riRlTK- (IPX, 108) 
lQS format (IH , 'COURSE NUMbbR (n'OT AS PLR SYSTEM SPECIF ICaT IONS' ) 

IF (C0NTRL(6)) WRITt {IPT,IG<?) 
109 FOKHATdH ,»SfcQUcNCL NUHBtR MiSSlh'G OR bAO, OR PKLV'IOUS CAHlXS) 1 
2N THIS RECORD BAD.') 

IF (CWTRL(9).AWD.(JTYPE.C0.2) ) WRITE (IPT.llO) 
ilG FGR.^iAT (IH ,»OATA IN I.O. NUMBER AREA 6AD OK .^U SSIWG-ST UOEwT RUN* J 

TF (CiVTRL{10).ANC.(JTYPE-tC-.l)) WRITE (LPT, 111) 
ill FORMAT (IK ,'DATA IN I.D. NUMbER AREA dAU OR M I :)S Xi'sC-HEAbER RUW.M 

IF (CWTRLdD) WRITE" (IPT,112) 
U2 FORMAT ( ih ,'NUMi3ER Gh SELhCllONb NOT AS PEl. SPEC I F ICAT ION .M 

AT (CKThL (!:>)) VvRlTL (IPT,113I 
PAGE 15 
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mIi-S III ^iUvinCL SiAVLAiLiNlT Li:>Tli\o 

<^ iHIo-MAFChhC wiih iHt t^^:^Al^O^R »Jt^ THib KuCx^KL**] 
I2t FO^^'AT lih , » K I UiXCHED TiUKLKIv- CiiLUj'ifsb ^lAiiJ - S « ri»-'r^*»,/J 

GC Tb 70JL 

J r ( { jrYHl:.h^*2)*ANl3* ( (KbLD( I H .LI •O ) . UK* { R£CD ( I o ) • o i V ) J rkUr. 

IF (.NGT-P) OC KO 800C! 

I!" (ACTiJiJJ CALL INI-0 {{,\i-LKM) 

If iACTIiiiO wRllfc (lPT,i03) U'rO.Af-,i^cCi;(4^^),St.WTRF.CU(6) TJrYPl- 
(P) wRiTc: (fpr, 7*^/99) 
799 7 rGiiiiAT (in ,»fcKr«J}<S IN YF.AK , .•>^LJ>i FH , CA Y t HUUKi Lift Mi NOT lib COLU^■^li> - c 

c 

C This RGUriHL PcRFuRKS ONt KINO ut" DUUBLb CGKVfcuS ii;i>; 
^RkOKS ICWos-lEO.') 
bOuO I,'- (ACT I OK. AN CP] WRITE ([PI,8001.) 

ouui rCMl'kl (IHCt'-*** ABOVE CAP.O ACULHTtU UhilMllL ST-RuKS. =••****',////) 

Ir ( .fvGl -ACTIU,\) WRLTil (iPT,rjUo2) 
bOO^ bOkbAT (iHO,'**** ASOVt CAKO HAS 6l:fcjS KKJECPlu **** l-L.'-.Ai.l; .vUTl: TH 
2Ar i,^ A i-'.ULT [-CARO KeCOKOTTHIS WILL CAUbL uTHtK CkRUUS **',////// J 
iF (ACnCiNj GC TG lOGOO 
UiJ b003 IiM=i,b5 
f3C0.i ASliA? t!N)-=0 
StU=0 
lOUOO ril'lURN 

bUdKUUTl uUUbL i: ( ARhA, KUF. ) 
C AS t-AR AS I'M CUrjCfcKN£-j, lu J-^/ wi TH 0^^-^hK^r^T KINDS UF CAKi)i 
C tiY OcNK'lS I. :iCH.\EiOcii 

I.\rcGtK<--2 SHIFTS 

[i^wThGER*2 Af<kA(i2) 

00 200 i£K=i,12 

IF {SHIFTS( AKhA( IhK) , RIGHT, iO.iVt.b) HWi=-l 
IF (NUM.L'vJ.-l ) OJ TO 999 
2UG COf\TIKUfc 

OQ LOU IQUCS=i,i2 

AAhA( IQU£S)=SHIFrS{ARI:A(iaUtS} ,LFFT,1JH 

IF (ARfcA{ IWU£5).WE.I) KUN=i\'UK+i 
IGO CONTINUC. 
99S ftETURfi 

tND 

SUBROU r I NL Si f\GL t ( ARc A , NOH K , NHH T Y , IT YP I: , KUM ) 
t, IHIS KbUTlN£ riAfvDLtS Sli\GLC COi^VcKSfON 
C .5Y Jh.Ni\J.S I. SCi-..%tlC£in 

K^Viu 1.6 



FILMED FROM BEST AVAILABLE COPY 



All ^ III :>? J;*Cfc oTATt;-t:«Nl Li:Jl.a. 
1 .vT t.Gt j.^wf ^kl.^*{/:^ ) 
.:i ut-. f 

{NLRf'.fcC.^:>) Gl. 1G loo 
It- ( fvukiM, bCi.'t* ) Gu TU ^00 

Call I XI] 

lOO Ih (rVKi^tTY.Irw* ilYPt ) ob TL 20CO 

bU Tl lOCC 

C THIb IS fril Li\L ul- THb rlVii-CLiJi: KUt^^'^AL birCTIoi: 

^'00 IF (j>KMV*Llv iTYHt ) I v. lOUG 

Gl iQ ^'OOO 

L This !:> IHL: i:t\L 1 Hl CUK-CUOl NCKi^AL ohtVlLls 

C A uI'.A^v-CH To LOGO iUGiCAIc:> FuKMArili^G 

C A riKAiNCH Tu ^OGu li\i:iCATc^ ^-t-CCiOF; HGRf-iAT I ii'\G 

iuOO LuNTINUI: 
\* 

L IHcoL /ixL CHt :5HIFrb TG t-b.<.''. Ihir CODb FUK MVt hLof'-M^tS 

C 

HiCoh-biiif TS{CODc,KiGHr ,5) 
LWti3H=CGbt-SHlF (H ICOE , LuF 1 , b J 
HlCut-=iriir- rS( hICDt, Lfcf-T, l) + I 
LnCDE=SHn-Tb(LWCOb,LEr=T,i J + I 

* 4< i: « ^: * ^-c * * ^; .•}:<<;{.*. ^. V ;^ -i: <. !^ * t * 4^ * « * + * 4- -V- i- * * * ^. « i: t: « * <i ^. 4; ^; * :f . <s 

rO 3U0U 



ERIC 



2ooo C0N7^^uL 

c 

C THCSe aHu the shifts Tb r-CRri coots f-LH {-uUR i<hSP(.'f«JSe.S 

c 

HlCCE=:>hiFri,(CUDE,kI&HT,5J 
LWCbfc-=CaC&-SHIFrS(HXCUb,Lfc:FT,5) 
HlCD£=^SHIrlS{HlCOE, RIGHT, I) 

l:<cde==shifts(lkcdc,right, i) 

HICut=SHIFrS(HICU£,LfcFT,i)+l 
L.i',CDl-=SHIFTS( LV.CDe,L&FT» L) + l 

C 

L****'>*************^' v****'tt*-r+ ****** *Ar4.^^*****;ii* 

t>!J f L JCOO 
PACt 17 
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ERIC 



aL-SS III SCUHCl jTaTC-iV.i ,.T LEori.xL- 

iAVt ( UJJL i-l ) = LrtCbL 
SAVt (^*UU}; b)=HlCOfc 
lUoOu Cbivl luUt 

lfc;<A = L|l£ 

if- I ihl r 1 S { M.vLA I I LivK) I A [u>h r T lO ) , iO.. V- ) KUF.~-1 
If- (AUi'i.cU.-U Gl IC S',e 

iMK'cfii [(\)-SaVl( 

hUNLl JL.\ K(J.^o!lr>( ICXOfc) 
C Thl5 KoUl Ihk liMo L)f:£f>. L.l\l t\LuhtL l\\ Tb.- RtLuC s I «OLr. LD.i^AuY 

ir^rfotK*? lajutTisUHLiiH 

0.nrA I iibT.v/5U,<dSo,l*i!d,to^, ii, U;, a, 4, 2,1/ 

!»- (iLuUt.Lw.UJ .^UM.>EK = !\U!'ti;<^-M;.''U.t:K 
C l:. U' A(>< irXCcPTIU.'-. 

IF { tCilDE.Llj.G) Gl. Iu 700U 
L A Ok£JP IHkU Mt^.NiS 

uu ^: .s--i,.Lo 

Ih ( lClji:t.f:vi. IfcSTi-.(.\) ) GO J 

C Lci< 11" UP rw (HL r^liLr lU .^LL IT I T • b fHtf<k aU ALL 

Cc^TlKUL 

C A Di<OP THKU HtAWi) II »S AdShM' 

GU ro 7U0u 
3 MJf'icEf< =W-i 

C THIS SLCTiur. i- li\<)S THfc ^!U^!cR.tC L'.vU I VALt.\T AlvO SPLITS 

VOOO i^LlUKiii 
CivU 

l-Ui\CTlLt!^ L&rrLR ( [CL'Olr) 
C TH[b i<OUTIi\C HAo dhfc^ CATALOGEU lis THfc KtLL'CArAbLt L lD*^At<Y 
C IHIS ROUriNfc PERf-JHMS fcriCDTC CCiNVfcRSluNS 
C dY DENNIS U SChNblOER 

(NTl-GcK*.? lCGOfc,LiiTT£:R,!--aUI V( 40 ) , t BCD I L 1 40 ) 

lf4TeGtP.*2 1a;ST,1SP 

OAVA fct}CD£C/« A' ,«u' ,'C« ,«0« , • t • , ' ^ ' , * G' , ' H» , • I • , * J • , * K • , • L • , ' » 

2 • N • , • o • , • p • , ' u • , ' r< • , * s s • r • , • u • , • V • , • w • , • X » , • Y • , • z • 

3,*0',*i«,'2«,'3»,'4«,"3','fc',*7S'y',*9«, 
4 »/•,»-',•(»,' S • / 

0;MA cuUIV/23C'4, 2176, 2 112, 2C«C, 2064, 20£)6,20i.2, 2050 1 
2«iC<4'J, 1280,1152, lOdb, 1056, 1C40, 10 J2, 1028, 
jlC2b,i025,64C,57o,^!44,52S,520,3l6, 
4514,513,512,256,128,64,32,16, 
b8, 4, 2, 1,768, I05o, 2066,2048/ 
OATA IA.ST/»*»/, 1SP/» •/ 
C FIRST, Stu Ir IT'S AN EXCfcPTiCN 
li' (ICOOG.fcw.O) LlTTlk=1SP 
If- ( ICbuE-EQ.O) GO ro 999 
1)J I N=l,40 

C WEXT,iS IT Ii\ THE TAJLE 

IF ( ICGOE.eC.EOUIVCN)) GO TC 100 
1 CuNTlNUh 

C I' t;-uP n-KU «u hnKfc fii-ANS iT«:> Acjfciif FhOrt li-b {/'.etc 
PAGi lo 
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Li^ Ff L.-. -= Uo f 
C THL*j r'AKT Ju^l hcTi.Ht:^ The l *Ui n/^LI- a I Ak,*; 

















Pl<ll\f 




Ju J 






.AT J- 














ui> 








3C 


PAT 










LOC 






If- 




L 


7tu( 0,i) 










L, ll^<rl^^! 






WUKK (iC) ,HAT 




to 


AUf<K{ lOJtirvTlKc 




KVC 














OAVc(a),0{i) 




nVC 


JUBia) ,23(1) 




n/c 























// lXLC ASiLXbLY 



PACK 




u 












1»1 




t)o 


LH 


LGCall 


ObfcCT 




F luLL' 


OS 


III 










L 


3t0{0,l) 




LH 


4,U{ 0,3) 




STH 


4, A 




L 


3,4(U, 1) 




LH 


4 , 'J ( 0 , J ) 




STH 


4,D 




L 


3,o( 




USTivC 


L0CALb,3 




LA 


4,1-1 CLO 




MVC 


U ( i , 4 ) , A 




KVC 


U 1,4) ,S 










fcNU 




/* 






// txc-c 


AbSb>58LY 




ol AKT 


0 



* IHIS .4oUTl!\t HAS iliiliW CATALJGtO iiv THt K'^LGCATACLfc LlbHA, 
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Ctoi 
.% 








i'iYbiCAL IuLi> SlcI {of\ 


a. 






AkcAI 




















.-Til 






I.ACP 


(X6l 






J r-Kbi^ Trie KEAOtR 




v-Ai r 


CLc I 




L 




* THIS KfcXT 


SLCTtUi\ HiGH7 - JUSTL 










s 


if -F'GGOl* 




f H 


6»=H*00u^^* 

v> ^ 1 * ^> V Vh# 




Lri 


6t ARcA 1 (6) 






f 6 C 0) 




SRA 


Sf 2(01 




SLDa 


8 T tr ( 0 ) 






df=A«0OuOOf^Fr« 




STH 


'3f ARLAi(6) 




bcr 


5f LOCP 






Of ISf SAVLf< 




L 


4T0{0Ti) 




LA 


PtAPfcA I 


PLACt IHl 


D A r A IK T HL P M K A i^c r b 




:iVC 


0( LO0f4)f0(5) 






Of i:3f SAVER 










HGHb 






£0J 






LTGRO 
















// txcc 


ASSCMdLy 




START 


0 



<^ THIS kGUTINL HAS 'dCEN CATALOGED IN THt HtfLGCATABLt LIBRARY 
THIS KOUTIfvIi HANDLES ALL SniFIUvG UPcKATILNS Foh FURT:^A;\ 

- iiNIky macro Causes bj^ajxch tl, »EWThk« 

* PARArttrCK ST0R;4Gt ARfcA 



SAVER 


uS 




olRtC r,\' 


DS 




uliTNCb 


OS 




DATA 


DS 


IH 


* 







ERIC 



LWD UF PARAHfcTfcR STCKAGt AREA 
hNrif .^Tt^i UfivfS/WbK 
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Thnr iaVcI> ALL l>c u!a«3,J0ST m LmjI:. 



L 


, G { . 1 1 J 


Ln 




:> r:- 




L 


f ( w f I ) 


I. 




, 1 




L 


, o ( C t i > 


L 


t i C » ^ ) 


sr 




- I y.RMt ALL THE Pi4i<A;-:eTcAi. 










L 




L 








C 




* t 1 • 


S TLST-fhL-CbOi: riMfc,FLLKS. 




CtiOt = I (L'cf-T) t Z {RI'JHT 




Ler-r 










SPLII 










«■ • « « « Ai^O 


This ,;^ANOfcKl;'^G STRA^GiiK,IL 


LLFr i>LL 


a, 0(5) 




dt:JA 1 A 




Of l:3,bAVER 


LH 


Of 52«TA 



ERiC 



fcLJ 
LlbRC 

/- 

// LSLFYP .\SD{:?) 
/t 

// MSS'Jf^ SYSLNK,X» L92« 
// OLiiL iJSYSLN, «i>YSLNK», 60/365, SU 
^ // cXTlriNT i>YSLNK,C0UO02f 1,0, LC, 1000 

J?,AG.tL Zl^ _ _ 
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( C.ARC( 2 ) 1 1 C ) 7 { C4Ku { 3 ) T i 0 ) , ( CA:<C ( 4 ) 1 1 c: ) 

CUKTsC./'hLACS'SrUuS'l.vJLcJ' , «PKut« iMntCK* ,»rLKr ' , V. I /- T * , ' "1 • f 



101 

102 



C 



ERIC 



^ o ( tiOG,33,U,l6) » 

3 7{ 20o,iOv),U,i7), 
c(hOGCt »I o) , 

5 ^50, 33 tO, I » 

6 iC {'JotO,3^,U,I iG) , 
? Li( 30G,^3,U,il.l}, 
t i2( iOO,<d5,U, 1 12 ) 

NLcCK = 10 
»\KcX = ^ 

USTUO = L3b 
OL 7 [ = lti-> 
r Iri'Ld) ^ I 
l.\=i 

lOUT = 3 
COftT IkUr- 
Fu.-^.vAT{lHi,6X, Ai:-;S 

;;tAO tiiJ, ].G L , bND=900G ) CCLU.\iN 
iF (lA.Nu. ICiii^T) GO To lOU 
CALL lNFu(CATi:S) 
kKl rb{ iO'JT,i02) OATF.StLULU.'.N 
Call iMAbt (CuLUMN,CAR01 
tK lL:.i\t-.COr:TRQ(i) ) Gu 7U 2000 
CoM liVJt 

LP.Dt": PUNC»iG.v» Gtf THl: StbKc.'<r IF 
IF (ScG.'U^T-lIQ- n Gij TO 130G 
CALL CPSYS( 'LCALJ' , 'AlKSHLAD' ) 
S£G^?.^'T = L 
CuKriiNUE 

iF{ (C.Nc.CGKTrtOC 5) ) Go TO 1700 
CALL HeAD!--P. 
CO Tb 100 
CuMIiNuc 

IC.,\E-CGNTku(6) ) Gu TO 1900 
. STCKt TtrtPGKARY U\ PfcKMANLhf 
CALL STOHt 
GO Tu 100 
1900 CGNTlNUfe 

IF( iC.Ml.CGWTKCj(7) ) GO TO 7000 
CALL KULiST 



o('.X,«JUa» 3A,<:A4^rlX»^A4,lX, 



lOuO 
A h 



NOT Ii'-' CGhi; 



i:)OG 



17uo 
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Call oPSvs(M.uAUS'Ai.MbCLA:>» ) 

^::>-^G CCNTIi\UL 

1F( iC^W!:.Cu..^tTi^u(i3 ) ) oL V'o 2?00 
u TMi IS fuK A LoUr^St KOSTl/ 
CALL LIj»T 
■^u lot 

2 7CC CoMjvUC 

I H( lii.L'c.i ••JK.IO.Eu. 15 j GC rC ZcJoO 
LALL cKk'..K(^r:AMi. »0,.^, (J) 

To iOO 
l:CrvTi^•OL 

IF { iC-.\L.C;j<.Tivc{ li ) ) *^Ci Fb 29uv/ 
CALL Ij\PUr ( VC) 
GO To iOO 

ih( iL.r^t.CCMiNUC 12 ) ) GL Tt3 70uO 
CALL CROP( IJ) 
ou Tu iOO 
"iOCu cCKTI.^rJt 

{F( ib.KL'*CoK-TRU{3) ) Go fC 4000 

t THii io .t, rc rjNci icr: 

CALL GP:>Vi(«LGAU", 'AIMbCCbf ) 

3500 CGi\nr\ut 

IF{ lC.i\e.CuHTRGic) ) GC iu 3 ?0G 

C AbL CHA.iiX ^7bG (NPOftHATlClN 

ift lO.Lw.i.Ok.lO.aii.iJ} GG TG 3600 
C/aLL /rKkl"».K(PisAMt:,G,2, rU) 

GC rc iOO 

:?cGC CALL HtQH ID, IE:) 
GQ TC iuO 

3 700 COJxTiMJfc 

Ih{ IC«N£.ClL\Ti-^.b(9) ) Oo rO 3^00 
C LiST THv. Tu FiLc 

Cx\LL MoOLST 

GO Tu IOC 
3900 CuNTiNUi: 

IF {lL.Wt.LQ:vTt^G( 10) } JG To 7'JOO 
C LIST THt UUtSTluN FILh 

CALL ULISr 

GG TO lOu 
400C COr^TIj\UE 

IF{ 1&*Nl.C0MTk0(4) ) bU TO 50uO 
C ITS TG GKACfc A L&SSGN 

CALL OPSYi ( •LOADS *AIMSPkCl« ) 

S&GNNT = 4 

CALL PRQCCS( 10) 

GC Tu luu 
'iOOO CGiNTiiNUE 

[F(IB.Nfc.CGM!^U{14) ) GC TC 7000 

IFlSfc:GiMNT*i:0.5) GO Tu 5500 

StGJ-iNT i 

CALL GPSYb{ «LUAD« 7 'A IMSLIST « ) 

P.AGii- ^3 



FILMED FROiM BEST AVAILABLE COPY 



Aii'.S III $UU;tCL STATcKwI.T Li:;Tlf.G 



C bAjj 



CALL KLlST{ fu) 

Gu ro 100 

CALL F[iNISH 
CALL LaIT 



// a:>:5o!\ ^YSSLt,X» )/9t» 



erJc 



// b XhC 


A b S h: is B 


LY 




i MAGlr 


0 I AH \ 








CLf4c 








i)C 


J. 0 • u ' 




C s , 1 I; K 


L 


3,0(0,1) 






L 


4,4(0,1) 






!>!VC 


G{4,4) ,2(3} 






.MVC 


4{4,'!i) , lu{ 5) 






CLC 


^3(2,i) ,=--CL^» • 






bfc 








PACK 


K0UK+4(t} ,23(2,3) 






CVfJ 


5,wor<A 






oC 


X« F' ,STi 


• 


oL*-UyK i 








* T 1 


ST 


b,«{iJ,4) 






CLi 


29<3),C' ' 






j& 


DLANK2 






PACK 


W6PK+4(4),29(l,3) 






CVb 


-J, WORK 






dC 


X»F«,ST2 






SR 






:> i c 


ST 


5,12(0,4) 






HGMfc 














/ 








// bXcu 


ASStKbLY 






START 








FrKTRY 


FINISH 






COMc 


£wT£K 






PkINT 








i.T 


UPAKLiT 


^aVL IHh ADDi\bSi Of- PAf^AHt itKS 




L.C 




3RAKCH PAST UPcN UK 2fjU t.vTftY 




MVI 


ENT£R+5,X»FQ« 


OISASLfc GPhN AT HAIW EH TRY 




hVl 


F+i,X«FO' 


OISABLt OPtN AT ScCOiSibARY ENTRY 




uPcNR 


Pkl^'TS 


OPEN- FILE 


Later 


L 


3,PARLSf 


GET PARAMcIffR LIST 




L 


4,0(0,3) 


GET 1ST PAKAH&lfcR AUUR 




MVC 


.MAMI:{6) ,U(4) 


iST PAR IS NAML-,MOVbU Tb PRINT CINE 




L 


4,4(0,3) 


2ND PAKAMfrltR ADURbSS 




L 




OtT 2N0 PARAHETtK 




CVD 


S.PDEC 


MAKL-. IT OECIM.AL 




rtVC 


LfcVL(2),PATL 


GET A PATTERN 




L-0 


Lf;VL(2),P0&C + 7 


EDIT 




f-'VC 


LbVtL{i),LEVL+i 


PLACE IN PRINT LIME 








IF LEVEL IS POSniVE ¥Z WILL A80KT 




yC 




rc3T IF lOIT RESULT fS 0 
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A i ^ II 


I ^clli<u£ STaI cMb-.^l 


L I o T i > L- 






f-. V I 












X * r « t ^< 2 






i 






LCSAbLl Thfc cKAfvCH K) MBu^. f 






1 A 

L A 


( 9 •> 


uPk?^3 KhGIi^Th*^ FOK uCT 






t 






LSI Tl 




A 




SLT UP ^^Pkj r u\x PAPA/H' Tt tvi) 






L A 




i-L-flu v--?ko i'vIiH bEu ItN'O OF 


1. INl 








cLAiWK (Hi: PK{^n1 L 1Kb 






A 




h\JLX THL PARA;\tTcK L t :>T 






1 

L 


^ » U { 0 » 3 ) 


uLl THc PARAiiLYbri AGUKbSS 






L 


3 1 0 i G » H ; 


G£1 FHb UaTA 






CV L 


b f P'JfcC 


.^'AKS: I r UfcCiKAL 






A 


Of — r • / • 


i'^CVt ;nLUWG OUTPUT L Hit 








C t f y o > » r'A 1 t 


PLALb PAiflrHiN IK OUTPUT L iHl 


- 




L A 




SiO blOlT A'JUP Iin' oPKl 










StT UP IHt LlHb 






'J 




If Pcb ITi V':. CuKPL 1: IE LUbP 






s 


1 » =1' * i * 


o£T AOL/H Fu^ SIGN 






nV 1 


0( i ) ,c»- * 


Hsii^ifKT SIGiN Ii\ LiKMi 






** * > 
uK 




Sbh IF P fs.S r PA RAM If S£R {'cRROR 






BC 




fXr Lur^iPLtrTh LOOP 






^ V i 




Stl FLAG FOR Ou/iP 










IF Last PASAisLItR 








X ' / « t^R I Tb 


IF LA^T PAKA.iLlfcK LbAVL 








7 > LUUP 


f'AXfMUi^j CF 5 PARA»**:i:TcKS 




>v K I 1 C 


U A l« L 










r VU 


l^^A^J (o ) f uATA 


PLACt i\AML IN J^KINT LI.\L 






MVC 




Place daIl lu priwt liml 






1^ VC 




PLACt TIHt iiV r*Rii\-T LfNt 






CKTRL 










PUT 




i^RllL THE LINt 






JC 




L£VhL=l,Thl S .jRA.\CHLS TU 






L 


i » PAkL C)l 


RbifuKC &FR1 






i-^ .S i W 1 


GrrN 








1— N> l_ 










PtM h r 








^btR 1 




i f X • I- FFt: • 


IS- LtVcL = 1 ThtN ASLf^T VWL 














I 4 A' I ^ n 


C Al. K 


^ > u 


LCAL A USING hiLuISIcK 










INPCHH THf: CUMPiH-R OF THIS 


FACT 


*- 
p 




A ^ U • , PA 5 1 


IF LALLSD cKltkNALLY ^'{LL uPlItv 






P K I fV 1 


PKIrUS IF NfcCESSARY 




<"i A C T 




RhP( *:JG) ^^'^iLO 


CMANGt 'iHh HeA0If>i6 










PKOPC&ATfc etANKS 






/'All 

CALL 


INrli t iUA I A 1 


U£T JUd NAKt,OATl:+Ti,->iL 






r.VL 


WAi^J 18) »uA i A 


P.bVi: NAf-.E INTO PKlNT LINt 






iMVC 


uAihio) yUAlA-^-b 


HUVC DATh iWru PKIrU L INfc 






f'VC 


rihfc:(a) ,DATA<-16 


f'.iJVi: TLMfc INFO PkIM HWt 






CNTRL 


PRiH \ S,SK, i 








pur 




'/(kiTt 






L 


3, MAG 


CHtCK If- AK'Y PKUbRAKi^LH CRKlJKS 




6cr 




ih NONE, rHfclvi NC JUMP 






PDU.MP 




UUMP IF ANY PFOG fcRKQRSt NdG 






CLGStR P.HINTS 


CLOSt THE FlLt 






tOJ 




KcTUKK- TU F.OiarUK 






uTr-p.< 









tiLKSUt=U2, 
CtJNrROL = YbS, 
uE:VADL)K-SYSLiT, 



X 
X 
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A{cS ill SCUkCL STATii.iUivr LISriM. 



El 



J 



ERJC 







iu 




oC 


r » J* 




US 


Lr 


L iivC 


DC 


dCLl* * 




CC 


CL lu«- ^""^ A Ii\S * 


^11? 


QC 


20 » c 1* HuK V K CU T I ;\ £ 




OC 


CLo'' • 




CC 


CLu« ocV* ' 




i)t 


LL L» ' 




UL 






DC 


5CLy* ' 




DC 






uc 


CL9« • 


OATb 


oc 


CL9« • 


Ttt^E 








tc 






uC 


CLZO'LtXC bh J'od 




CC 




PAFL 


bC 




LLVL 






PATu 


bC 










/- 














ASStHbLY 


This 










Sf PASMB==YfcS, 






Cu;\TKOL^YtSt 














/ ^" 






// lXlC 


Ai>S:.K8LY 




5TAKT 








cNTUH 








JGd 




2r- 


UAl b 


es 




Tihir 


GS 


2F 


P AK 


OS 


IF 




us 


3C 


PAJ 


OL 


iOX» F 020202 L4B202CAB202C 






ib'C 


I NT [ML 


DS 


LF 




L 


7,0(0»1) 




GLriHfc STANDARD 






1, iNTIME 






WO^K{LO),PAT 




to 


^i-:bR^(10),lNT[Mb 




HVC 


Tifit:(^>i,W0i^Kf2 










HVC 


OATt(d)tO(l) 




KVC 


J0£3{«) ,23{ L) 




fV.VC 


0(2^,7) t JOB 




PRINT 











A 
X 

X 
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ERIC 



// tAl.C 




LbTCOh 








COHfc 


Lkffch 


ChA»<o 


00 


C • A d C u t F 


LcuAL 


uC 


X'OOGCF :^uO* 


WtRK 


Ob 






L.jOP 






DC 


A«Gw000CQ2» 




DC 






oC 






OC 


X* UOOOoOLO* 




uC 


/•OOOOOGZO* 




DC 


X » 000GG*04U« 




DC 


a'OOOOOOSO' 




DC 


A» UOOCO iuO< 




DC 


X»0000G2C0* 




DC 


X' OOCCC^uO' 




HVI 


K0KK,C» » 




iMv^C 


W(jK/\ + l (7) , WORK 




SK 






.^>*< 






I 


1?,0 ( Ut i) 




LA 


Of2( Of 




LA 


7t id (0,0) 




LA 


«tCHECKS 




L h 






is 






t;C 


X»fi • »i\UT 




LA 


lOf CHAkS(4 ) 




A 


3f-F» 2* 




C 






£>C 


X'2« ,;-*Ai\Y 




La 


lltv\0kK-2 




AR 


ii,3 




iMVC 


0{ 2, 11) »G{ 10) 




>:iC 


X* F • twCT 


Ha»\V 


i<Vl 


WUKKf7»C'*» 




bC 


X • F « T 0 1 1 


MOT 


A 






:>XL£: 


^f, 6, LOOP 


Oil 


LH 


9,0{0,ti) 




[V 


9,LbGAL 




3C 






HVI 


wGRK+TtC^X' 


00 


FH 


l(r>),X»Gi» 




8C 


X'OiSOGNb 




i^VI 


WCKK + TtCX" 


UOMl: 


L 






K'VC 


0(3, 3), WORK 




HOME 











G H i J 



/* 

IWCLUOE ILFSSCRI 
PHAil; AlMSHhAD,* 
Q // ilXCC Fi-OKT}UN 

C 

^ P-A6.h 2;?^ 



FILMED FROM BEST AVAILABLE COPY 



C niiAiJhK ML£. LOGICALLY IhtKb AkL ^. i-lLt.:> , a bo;vATL.i UNO A 

r^tK,-^/. vLhT rlLL* HbCcUOS IW iHli bCivATCH TILL aRc KuT Uoc 5 dY IHL bYSlc^. 
t.. , ThL-Y a;<L i^.c.^cLY bTURtu FHilR*.* LlGIcALLY ivbC^rUJ^ 1 - ^UO {isLtib * 
L »\lLCK ) 6LLIK<', TJ-.r PLlN^Ais^hr rILfc WHlLL r^LCu.^.Lb ^Ul Tu ovJ^ 
C AKt THC rtc^.r^DKAAY l-lLf* FijGLYhbH IHcY CbrvbTlTUt IHL bOO KfcCuWS 

C 

C ThhKL MKf: 3 LuoiLAL SbCTlCriS TL 1HU> ?^UUTIi\l* 

t n THi: Hikin HAjnDLLS Kt.C:.'KaS li\ fhL TL^kO.s aI-^vY Ml£. IT.. M j F bcClIlJ. 

C Pt.ACi:b KfcLuKOb Li Tht TtMPUKA.sY TILL IN SuRftU URjEKt ucLuTcb 

C ^'IcPLALbS RcCJKaS ((in TtHP* U il ^^AY ALSO Ui^UAlL The A»\SKbKS (ThlS IS 

C THi OKLV ^««Gb IFF CAT il/i^i PLR.MlFfhO Fu HcAGcKS li\ THL PLKi^lA'^tM MLt) OF 

L RbC'Ji.^b IN ihti HL»<>'lA.\.t:i\T F^ILC-^ FHt bLH.CWi; PORVUN IS A bi:CUb»\Cc LH^uLK 

L ViHiUrj IKSUHLS ThAF VHLkt: Al<b fxL iMi.K£ FHAN 10 JIibF / LhSSGi^ Awb IHAT 

C Lb:i:>0<\b fti^.? ASv^uNU iiY i Am1 STakT i»i fH The: flKbl LLSSU.^i rOLLljJ'^ I i\G 

C fHGuh lii PtKi<Ai\L.\T f-lLc- ii ALbL hUlLCS Fhl. KAP Oh ThL TUKPukAkY f-lLb 

C FuK Tnl: bYSlcK hlLc* 
C 

C 2) This StCTUj^si LHirCKb THL l.KRUR h-LMG ^Ku^^ IhL bYSTLi^» ^ILL* Ir IF IS 

C ufF, IT TKANSFcAb kLCUKOS TO THu r^LKi'AAiscNT KLt, JNITiALlZcS ThhiK 

C i^vitSTIOK KeCGKUb, AhO SnS UP THir OUi:ST'.U^ Pls'vTf^S* IT l^URuS IHi: 

C SAi^ UF IHfc PilRi^lAiVL.v 1 hlLt hCK Th'b oYbTb*-; MLi:* 
L 

C }) THIS SECTION LISl;^ dOVH THb PfcR»\AKcNT Ai\u TLNPOHAKY FILlS. 

C THE SYbTcf^ rILt- VilLL CGi\TAlt^ THir FOLLGVvI^O iVAP UF THf h£ALi:K rlLL* 

C KfiCliRC 2 

G i = HlGHhSF LtSSCN IK PbRMANLNT 

C. .vj = i\U^i5bR UF KeCu<uS ITs PERMAKbriT 

C :> = nIoHiSF LLSSUN l\\ Tt^iPOFcA^.Y 

C WO 4 = NUf-ibbK Or s^.bCGRGS IN TbiMPUKAHY 

C WD b = cRROR FLAG (LASl fcXbCUTIGN OF SbCTlON I LLtT ml 

C ERRORS fN TEMPORARY, THEM = 0 , tLSL = 1 ) 

G 

G KtCbRC 3 

C vUJ 1 ^ KLCUXD L CF iSl HfcAUhK FUR LESSUi\ I l.M Trib 

C PHYSICAL FILE. 

G 

C K ECO HO 4 

C l^U I = wU^'^i3bR OF RbCuRuS IN THE FILE FOR 

c LESSON I 
C , 

G AbCOKG 5 

G WO i ^ NO. OF RECORDS CUkREKTLY ii\ THE QUEbTIGr^ FlLfc 
C 

CO^^^O^/SYSTEM/WLLSS,^^lDECK,^K£X,tN(wbEST,NSTUD 

*wUHKG*4/F iLbb/ Jt. i(ZJ , iPK ii>iT , i ^> , I F I Lb , I 3 f I uUtrST, IV.«^{ ^) , i :>Yb, 



FILMED FROM BEST AVAILABLE COPY 



ERIC 



•u.S ill j'wfntE iTi^ Tui'.c. N I Llc.ll« J 

iWTtGhk * i '■'itCUKC { oo» .LuO) » KwLM-^(o".)) » PTkj(">(j) , .uv-.^(JU) 
IMtGciv V I. Hj.Ri^,i\PLK»',I.Ti:.'''a-, Mui%f» L.'KhLG 

1 » lKLCy('<) » v.K!:C{\'b t uSTIuN(7l) 

IKTIOLR RNA«t.{i:) f dFLAu , rvCUO t Kt2 t Csfs^.Mh ( ^ ) 

DATA KKA.-.L/' t-,LAu' , 'Lf^' ufcLL T/ • ^fc « , « LL ' , * F ' / , i.r -.P/ 1/ , /J.r^u/l-/ 

IMfcGtK * AUi'.litKia ) T Lt-S:>i-i\, Si.G.''.i\T, TYPt t CLUnbi: , SHj..Cr, , 
^ SLirtD , SLLcCr , GsAwci , GUcr^Tb t R».or-i\3 ('i ! ) , L ii:t L ( 2) ruLrttj I ^ J 

3 ,QPTK 

c GATiito) , UkLPPu{2,2), CLK'J(2) 
l.'vTt.bLri * QHLA( /G) 

GATri Hf:AO,vG/'PL^:.'><' f 'A«tk' , • r K i • , « !.b « , « TlffiP • , 'GKAr; • , ' Y rl't'Ll'/ 
UAT/A iLAivK/' '/ , iSVAi,r/l.,4uI/,LA.St".L/».',«>>,'/,ul-Ab/« 

//i uaLPPU/' • ,'>'IILLS 'TcL' / ,CONU/'A-ui<','GTGP'/ 

cCUiVALuIV'Cfc (LLSSG.\ , r,GLR02{i) 1 , (ofccMivT , r-Xu.^vG i ) ) 

2 , { TYPfc , i-<CGkL2(4) ) , ( CcUp-S!: t .-cClKJ2('^) ) 
•3 , (ikCNGL , KCLlHCKi.) ) , (bGRU 5-.CC.Hu2(lUJ ) 

4 , {3!:l.l:GT , HCbKJ2{liJ ) , (GkAUtS, P.GUfNG,ML2) ) 

•3 , (GOtbTS , t<GL!RL/2{i3} ) , ( kLSPiMj(lJ , KGuKO/" ( 1 o ) ) 
o , (C'PlK t KGGKG2(ci) ) 

C 

C hl8<br G>lTAlN TKt htrAuifR i>1AP huRi'. Ihi bYSTL.,^ i-fLL 
C 

k!:Wli\0 ll'APL 

i<eAu( I SYS' 2) LPLRNf lvPi.R/-., Ll!"rPt MfcKP 
KL-AOdSYb' J) PTKS 
KhAOd^JYSM ) .NuS 
C SLT feKHOR FLAG Tu 0 
I: FLAG •- U 

WtiT = 0 

kCHuGK = AjrtiMP 
C A.xU RtAO A dUNCiH G}^ PtCURDS(UP TO iOU A7 A Hi-it ) 
200 CALL CTIO{RF.CURC,iNiU<VB»LGl ) 
1P(NGMB.LT. L) GQ To 2100 

C 

C !vOk work V.IIH Tht.M 
C 

GG 2000 CAR J = L,i\UHii 
C Ih THt LCSSQN lb ALRhAOY l.V P!iKMAi"'4i:fcT bTOR IT'S ficRLLY A GrtAMOt- uF 
C AlVSKtRS 

If- { kECGRu{ l,CAHU) .GT.LPfcRK) TU biiQ 
C i\-0,. Wfc f'UST FL\D fHL KECJkO IN PhRMAKfcM, SO LGlK IN Trie HAP 
LtSS = KbCOUUl l,CARD) 

11 ^ PTRSILLSb) 

12 = NUSILbGS) +11-1 
UU AGO NR = II , 12 
RfcADIIFlLCNK) RCGRU2 
DC 300 J ■= i,4 

ilM kC0kC2{ J) ..Nt .RtCOROI J,CAKO} ) Gb TO AUG 

300 cuwriNue 

C «{L'V£ r-bUNO A HATCH CHfcCK OTHtR PAi"<AHtT£i^b 

iF( RC0Ru2{3).Nfc.RbCGRU{5,CARD) ) GO TC 3^0 
lf-( HC0kD2( 6).Ni:.KcC0R0{6,CAk!j) )GU 10 350 
iF( HCGkC2(iO).N&.RECOKGl iOtCAkOJ ) Gb TO 350 
IK kCuki-'H( I a) .Nb,RECOHU{ i3,CAj<0) ) GJ TO 350 
f; * - - ,:: - : -„- ",:-„- : - „ - ;„ ,: ;-- ; ,^,:„, 



FILMED FROM B2ST AVAILABLE COPY 



aIkS III SLUi<cr iTATt:KL.\T lUILsC 

C ALL Cni^'^Kt r'CKr-UhH UFOAfc 

;<Cf»/0*:'( 12 ) = .^t'..'>.L( li?,LA^ J 1 
J/ CUJriTS ^ i? 

J3 = J ~ Id ^.Pl.N 

kCGku2{J} - J btUKO { JtCiiRL) 
•*,KtX(l2) ^ KCLkD2(JJ 
i>KlTL(iuUtSr» Jj) wKuX 
C i'^Kilc iHi:. t\*i;W mlCUKLy kl\0 bu y.bKK 'a H> ^t-Xi CM 
r.K I rL( IFILc^Mn) AUC^iJi 

Ji •» u J ?N \^ LiH J 2 ( ^ ) 

CALL UkRUin ( l^uAME f U t 1 1 r*K t LLbo t J t K 1 
200u 
400 CGhTINUL 

J - RbCGKOC 3f CAkj) 

L ALL Lhi<urt ( RN Ai^'iL t 0 t^:,Lt:b:5fJt^) 

hu Ik, 2 C< 0 \} 

C ITS A^wF A.^ OPLmIl- ul' v^cKr-i/iMiH f Sl IT KU^i bhM-Cl TLrtPD^-AKY 

C ^hf ir ITS A UtLti RtCURu 
DC b'>U I - It 3 

If {fUCLr<L( l + o,CAKbJ ..\c-i3HLLTl f ) } uC U: iotu 
':>50 uuNTlMUb 
C ITS A iJhLCT SO H^0 ThL .^GCOKO 
Lii^S = XfcCOP.udtCAkLl 
il = PTKblLEib) 
!^ = M,S(LtSS) + i 1 i 
ir(Il*LT-^01.CK*I^*LT*Il) Oo I'u VQO 
6v;0 JC 800 WR = IL t 12 

kfcAD( IFILh'NK) ACURD2 
00 700 I = 3,4 

IF( kCCi/<i}2{ RtCOKOdtCAKU) ) GU lu b'OO 

700 CuW INUL 

C y.L'Vt l-ll;:\0 THh .nATCH SG SirT THh utLhTli FLAG, AKC GU IP i\kXT RcCUKj 
OkOP = 1 

WRlTfcC IFIL d'lMK) KLCR02,URu? 

KCHbCK = NCHECK - I 

GU TO 2000 
BUG CGNTlNUfc 
C 'aZ HAVEN'T FbUwb ThL HECGkU 
900 I ^ KtLUMii :>tCARUJ 

J = KLCJKu {4tCARD) 

EFLAG = 1 

LALL ERKOR(i^NAM£fOf 3,LhSSf J^K) 
GO TO 2000 

fHL KtCCRb ISN'T A DELLT, SO ITS A REPLACE QK ADO 
LOGO LONTlNUc 
C ChL-CK IF THfcKb ARE ANY QUESTiCNS 

[F (K6C0kU(l3,CAR0)-.Gi£*l ) GU TO llUO 
LESS ^ R&C&KU(l,CAROi 
i= KLCuRL(3,CaRD) 
J= RbCuRCi4^CAR0i 
CFLAu = I 

CALL LRKOk {kNAHb»0,A ,LtSof I ,J ) 

"i^'il k t j_„_^ 'X,„"n.i~, , ~ '. "~ m" " " " . ... "„■", " .~n ,„,^^--,.^..rM."" T„,„„„^^ ".~ "" 7 .,~ """ '..rZ.^^^~~-..-..,'i..,. 



FILMED FROM BEST AVAILABLE COPY 



ERIC 



\Z ^ ML3(l.t:SS) + I I ~L 
\ \i » Civc HuK THlb Lt:SoUi\ ITS Ai\ /aLc 

« Oti 1200 11 , 12 

i Ir ( KCv..^^il(I) . :^uCur-Jn fCAKO) ) Cu Pj l^u'J 

Ll:>o CUNTii\uh 
u Ycb IT:, A KCPLACt 

akI Tt( IMLL^hA? (kLCuAi)( I fUM^u) , l-Uot?) j LtxKv^ 

12*JU CC.N'T li\ Jh 

I '^v/J CJKFl "^Ot: 
u SLi Ih ThL:Kb*3 ^CsE kGuH IK Thb MLl 

iF'C I • IT. 4UU ) Gu Tu [6CU 

J - c uUi'^. ti { 1 A J ) 

JrfLAo = 1 

CALL uKRi.i< (K.\*A,Hr. ,aT*:)»LLL»S, [ , J ) 
TU 2000 

i\iiW =• Whi^ + I 

iiRT.iAPdTi^bW) = NbuUaOC 1,CAKU ) 
SRT^iAP(-^^,i^:bl^) - R£lukO( J,CAkD) 

Si^T*MAP(4,Kt:b} = 0 

V.KlTi:( ITAPt) {KtCGRJ(f tLAKU) ti - l$6b) 

fp (LCI ^LW • 0) 00 Tu 2U0 
C li- LAST CARD S.EAt)T-^U.lTt uLU 
C IhhPOKAKY RlrCoRCS Fu SCX/r FApr. 
2tC0 iF(Mli;i^iP.Lc-Q) Ol TC 2300 
IL ^ 401 
\ 12 = NTtHP + li 

* DC 220U 1 = ii T 12 

Kb ADdFlLr' 1) KCGK02, CHECK 
y IF( CHtCK.Nb. 0) GO Tu 2200 

■ h'CU - Uizvi f I 

SKT.MAP(i,Kbw) = l<CUK02(l) 
SRrMAP{2fWhU) = RCGRD2{J) 
SKT^iAPCiTi^iEw) = KC0kD2(4) 
bi^T,MAP(4,i\bV\) = 0 
WKlTcCITAPE) r(CQK02,CHbtK 
2200 CONTiiVJC 

2JC0 iFCKcW.LL.O) Gu TO 4200 
C bcviiiN TD SO,<T THc i<I:CLRDi>T IF AwY 
ciND FILl£ I TAPE 
KdWlNO ITAPb 
UU 3000 IPCS = It NEU 
Dd 2400 I I, NLW 

IF(SKTHAP(4,I J .iNb. 0] GL Tu 2400 
UvH = 1 
oG rC 2i>uu 

- PAGc bl 



FILMED FROM BEST AVAILABLE COPY 



Ml, S III olu^CL bTATbHcvT LIofK.u 

^.<T^,M^'(^M Ikh) ^ ip:s 

J ^ Iwn + L 

ir ( Si^Tr'.AP( ^ , I ) .WL. 0) OJ iL cVoC 

o Cui\ r luur 

IWH = I 
^90o ClMJ.\Uc 

5ii>0 Lu^^INUl: 
C iK.AKL SUi'.L TAPc to Kt.V\uljKO 
.'tvXho fTAPt 

J ^ SRTKAP (4, I > \- 40c 

C 

L /*5:«Vi: l"[MShcli r,ijlLL;ii\G Ai\U UPiJAIlNu, SO NC^v ljuol*\ cit uLMifvLiI CHh^.K 

c nariALi/.£ 

i30u LAST = LPc.<r; 
KL'LuT = u 

11 = LASr + I 

00 3350 I = II ♦ MuSS 
PTHSd) = 0 
3 i 50 NUS { I ) = 0 

12 - 4ul + WLK - i — ' 
LL 4000 I - -^Oi, IZ 

RLAOdf ILr, • i) VMzCQ 
ll-(KuUK'r. L-u.Ol bu TO 33UU 
IK IRlCUCI) - LAST ) 34Q0» iSOb, 3700 
i400 CuNTIiviUe 

J = iRECO( tl 

CALL EKKUK(K;<iAHC»0,-l,I »LAST,J) 
GO rO 3950 

s'joo K,uui\r •= kuunt 1- 1 

lF{iRCCl){3).NC.LAST3) GO Tb JouO 
1F( iKfcCD(4).Wt:.LASr4J GG TL 3oU0 
tr-LAG = I 
J = I - 400 

CALL Et^R'JK{K/vA{«c,U,o,J,LAS r,LASr3,LAST4) 
ZtiiiO COWTl^iU£. 

U-(KOUNT.Ll=.NDfcCK) GO FC 5950 
tFLAG = I 

CALL fcRRUR{HNA.SI:,Q, 7 ,LAST , L A5 T J , L AST4 , KCUM ) 
GC TL 3950 
370C CONTINUE 
C :>TGHr THt: KUMBhft OF RCCDS U\ THE LAST LbSSON 
.vU^{LAbT) = KLUIvT 



FILMED FROM BEST AVAILABLE COPY 



u I III 



I ST. Ui^i:\i Li. I I u 



LASf -= LA^T I 
J = lKf:Lu( i) 
Lf-L ^ I 

CALL I-hRlt (kwAML,Ut-^>»<^ LA:,T, J) 
LAST ^ I kcCU{ I) 

5-n^b(LASI) ^ i 
KuUNI ^ L 
f53i LAbT3 ^ iKiECCij)) 
LAST-i --^ IrLcDi't) 

Slbi-.;. KCUKT r-uK iHt LAST ObuK 
i\GS(LAoT) - .s^uoNT 
LTtisS' = LaoT 
?TfcHH = NLfi 

LTtr^P ^ 0 

IF { LHLK»-i*Lj-i-LLii) G-j IC 4-'<U'u 
J I - LMK^i + I 
Cfu 4 jOu i = i I , NLr^S 
vUS i I ) -= U 

i.M<f-LO - Iif-LAb 

wHITt LPLKiW LI'J'.^^t ^fbhP , fcKf^iau 

'♦'<jCt CGNT INUc 

Ou To ObJO 
LiM KY STuf<t 

C THIS i[■^:TlU^ AiUSl CHkCR THl LKKuK f-LAG UN Thh UlbK 

C IF LW ACTION is ILL lAKbN, If- uFr ALL h^fcCOi^L-, hlLL BL MuVLu f-ko>i 
C TL.SPOKAKY 10 PcK^AwtNf 
C 

I\lAU( ISY3*2) LPCi^M, i\PfkM, LTel^Py isSTLi^P, eHRPLG 
iFClii^iULu .uu* 0) xjU TC bCOO 
ij CALL fcHKJjv( biVAHtTOf I ) 

^ 00 TO 6800 

C KlAC HcaOEK HAP 
tiOOO iKKTEi-iP.Lb.OGL 10 ooOO 
KtAU(li>YS' j) PTKS 
KcAOdSYS'^) NCS 
C ALSl KlAO NUMb£K Uh OULSTIUK KfcCCKOS 
KtADdSYS'b) CvkECNu 
KOUNT ^ 0 
LAST = LPhRf-i 
I^C2 = 4oT f NTfcHP - I 
OC oOOO KtfCO 401, RC2 
L l.\CKL/4fcrvT fthCOkO NUMbtR 
t\PLft/^= = I'iPhAM ^ 1 
O .stAD{ IFILlI*KbtOJ aCCKD2 

ERJC C I^ MHSr KuNc TC STtiK:. Iv4 kuS i 
"™sasa Ir (KuUfvi *LC*0 ) Gu Tu blOO 



FILMED FROM BEST AVAILABLE COPY 



ERIC 



IfiLMSTv^W* rsCJHUc(l)) Oo It. ^jO*. 



i 



V :>TiLi\(l) = r;CLi<i;2{ i) 
vSTKj.sCiJ ^ kCCJ<u^{31 
CS r I U;\ ( 3 ) ~ ^XL^<L;<r.{ 4 ) 

5dCC I = J 7 1^2 
IF{ !!• Lc. 4000) GL TU S^sOO 

CALL izRKUK{bKAfJ.C, L,-ir J,K,L,H) 
5oOu I'.RiTf: ( luU-ST' il) CSTia,^ 

• RtL]kD2{7J = 0 

ha I r b ( I F I L £: ' u P i-.R /<) HC Ok U 2 
LKUP = i 

>>i<lTi:( {f-ILt'KiiLOJ KtORl}2 t DKLH 
oOUO COMIiN^Ut 
C Cbf-^PLtrk MAP FOR LAiT hbACER 
NuSdAST) ^ KGUM 
M C Rb'wKlTf: MAP, ANu FALL THkCjUuH TC Li ST 
•* LrE.\P = C 

y LPbRM = Last 

» uRKhLG = I 

ARlTE(ii>Y5*2) LPLl^K, ^Pl.ki\, LTuXj^, mIc*-.?, bRKhLO 

*y5RITb{iSY::>'3) PTkS 

WRirb( (SYSM) NGS 

WK[rE(ISYS'5) QRfcCNQ 

bNTRY hOLlST 

KbM0(ISY5«2) LPtHi^W WU«obH(l), LTfcMP, NUKabR(2)T LRRFLu 

rPAGt = 0 

CALL iNFa(DATb) 

00 9000 RbO =1,2 

IH = 0 

IF{NUMBER{r<£D)*LL*G) GU TC 90G0 

IJl ^ ISrARTCKbO) 

12 = li - 1 + NbiMBbiU REU) 

UiJ ouOO IkX = II, 12 

■ KA>L > 4 - - - - - - - - - - - 



FILMED FROM BEST AVAILABLE COPY 



IK in .C-r. .^L fC 700u 
IPaJc = IP«lut ^ 1 

Ih = 4 

in = IH - 1 

.-^ - AJ U F { L L • 1 « X ) riCur^ , 'JKJP 
75GC 1=1, out SIS 
7bG0 CALL LSrCut{KESKNS{I JtANbWtfidtl)) 
J 2 = .i kX - it + i. 
J.i = iCKtj + i 
JA = JkGP + I 

hRiFi { ip« itjr» r-v'-j's) coukSc , llssun 

i .;i,wfvCc T LA6iiL{SCwiJCt ) » J2 t >.>U£.oTo 

IF ( Lu'rrbTi.bl . 12) TO 7 /CC 
r.KiTj:( lPRl.a,>;Oui> ( J , J= I , wU -oTS ) 

v.KiTt (iKislf;T,cJGOi) 
v-.Rirc{ IPkI«T»S0L'3> 
tj'l T'j 50uO 
7 7Cti IP (uU.':irS-0T,2A) Go T-J 7o';0 
iM-.ITt { l!'KL.a,oG01} (J,J=l,i?.} 

Aj'.Ifh ( lPKi;\ f ,o002) {{ANSVitK ( J,K) Ta = i»2) i^r) 
v.i^ITc { lPUI.Nr,ijOGU (J, J=li, wULi>TS) 

».i<iTk( iH ^i^TTs002) I (AfiSKc.-:{ JtK), j=i,2) »>.-i3t vUtbTS) 
USiTl (IPhMNr,6C-03) 
-.'.•Kirt (IPRINI ,o003> 
»vftirfc( £PKiNT,aC0 5) 
Ob TO oOCLp 
7b0a IF (uUh3T3.GT.36) oU 

-:»RIT£ (lr-Al^^,faCC•i) 

»:RlTfc ( IPKl.a,d002 ) 
kRITd { IPxI^TjOOOl J 
WRlffc {IP.<lNr,y002) 
V,ftiTC { IPKlNT.aOOl) 
wtilli- ( iPKj?a,d002} 

v.Rirt (ipRii\r,oou5) 

H:UTc{ lPF:iMr,SC0 3) 
00 TO 60U0 
7900 COhriNUb 

HRITt ( IPrUrsT.cGOi) 
j-vRITf; ( iPKiNT,d0a2) 
WaiTh {iPc<LM,cOGl} 
fiHlT'c ( IPi<i«T»a002) 
WKlTc (IPP. rKTrbOGl) 
WRiTt {iPKrM,a002) 
ftP.iTt ( l?.aNT,<i001) 
hRirt ( rPRI!v4r,dUG2> 
V>.RiTL-( lPRINT,a003) 

ouoo lont imf. 

IF{ IH . Gf. G) 00 

IPAGk = IPAGE + 1 

WKirt (]P!<lNTTrj«lC,<5) 

l'.KlTt ( lPt<l.vT,ob0.l J 



TC 7'30C 
{J,J=iti^) 

KA.NSWhK (J,K),J=i,>) ,K^i,12) 
{ J, J=lj,24) 

{ ( AjXSUcft i J,K.) ,J=l,i),K= Ijt 24) 
( J, J=25t'-UEfSTS) 

( (ANSWfcH { J,K),J=l,2),K=^L>,k-'UcorS) 



( JtJ=L, L^) 

{ ( ArvSkER< J,K) ,J=l,2),K=l,i2) 
( J,J=iJ,2^) 

( (ANSV.i;R( J,K) ,J=1,^) ,K^lJ,24) 
{ J,J=25,3c) 

{ (AhSV»ER{J,K) 5J=i,2),i<=2b,36) 
(J,J=3 7,tjU5iSTS) 

{ (ANSWtRt J,K) tJ=it2) ,K=3 7,UUi-.;>TS ) 



TO 6500 

DATE , (HcAONGiJiHtO) ,J=i, .) , IPAOL 



FILMED FROM BEST AVAILABLE COPY 



^l.'i HI :>LUKt>L STATbXliiNr LiSH^o 
[h( ncb.tix. i) XL 9GC«j 

K - CKr>FLG I 

KL-.TUKK 

fes-i-* r-L'}u-.Ar{ iHi 7 7X , ',»^.(.-5i, uLoK^C CtSkiP i ICiv' , 

^ • > '30X t *Jl.d' , , , , 

J iX , .iA'j / li), , t^A , c-iX V M-'Ai.-t' t 

14 / / ) 

rUKfAK iuX , •CLuKS:.' , IX , 1-2 , il^ , 'LcjbUi^', IX , 
^. , IIX , 'jLGKEM', IX , 12 , ICX T 'lYrC , lA , 

:^ lit , «CaNSiSi:3 L.1-' , U , ix , , ^2 » 

> lOX, «JHLhc «Kc«, IJ , iX , 'ijotSHUK-^, cACr. ^'F uP 1. • t 
c IX, AZtiX , • iwhKS . ' » » IX t ''.'ILL bf- GivAbclj.' , 

7 2X , TH:., c -^«r.' , 14 , IX ,»HiJSSlrtLh ScL cO I ILWS. ' , clX , 
c Ikt i 

>.C^01 FCHMATi III/) , ISa , nnlKc aRL' , i ^. , iX, 

^ '.-JELur^uS IN FILh' ) 

oOOl FCR.-'iAr{3X, iL{i2,9X ),i<d) 
cOO^ f-GKWA7 ( 3X, i.l ( .<A4 ,3X ) ,2AA ) 

o^Sv .-CKXaFC 13 X , 'Iht. CLi\LlfIUi\ ib» , IX , A^J 
hi J I; 

oVJbr.iJUTlsL C r IC{kEC0,!vIJN,LL1 } 
CCM.-It-.:,/f-lLt:i/ lAi{i2) ,IH , li-,PA?.i 
IMuuuK * 2 KcC0{6p, lOu) 

LCi = 1 
ivli'N = 0 
OL t>00 I = 1,LOO 
RlAL;{ iH,r:.\J=.L00u) { i^£CO { L , 1) ,L=i , c5 ) 
ivUr-j = I 

LCI = C- 
LjCO CC.sTiW 
<c tf. i !vi} r (i 
K I: TURK 

Pn'.Sfc Al iSbCLASTAif-iShcAO 

// tXlrC FFGRTKAf'J 

SUBisUUTlKt lA?UT{lf%'DfcV} 

C 
C 

0. rf-LRli AKb 3 ScCTiOi\S Cji\ t.N'TKY POIMS TO THIS kCUTli\t , tACH 'rtlTh ITi, 

c LkN FUr.CTIGN. THE MAIw PURPObE UF THIS KUUT li^c IS HANDLING OF THl 

C SrUUfc,N:r BACKGRCUrvC FIL&. THIS r{Li. SfcKVLS i-.S a fiASFfcr'. FILE 1-UR THt 

C STUDci^iTS, CC;i\T.iLLLIfVG tACh PfsbCtbS RUN', AND lCKTaI ix LNij ALL iNFoi-.KA- 

C riuN PGRT AlNi.^G FC EACH ifUOtNK uTHfcK THAN HiS GkmUES) . IHt 

t SrUULKT i\Uf"-.acK(dV /.HlCh THL- SYSThr RiiFbKS TO A PAkriCuLAK iTUiJti\Tj 

c Thfc RfcCOHC i'jL, IN IHIS FILjI. FHt ISI v.lRO OF THE Fli'Sl rlCCuKu 

C iW THC SYSTlM FlLt COMTAlW THt NC- Ol- KCClKOS THI^ FILC.t THfc INO 

C rtO.KC {S Trii; N OF SrU0E:\TS(5\0T CCUivTIivG OKbPSJ. 

C II. r 3 FUNC/ Ibi^S CF THIS RUUTIN'E ARE 

C i) CKtATi.NG uf. ACClivG TO THE FILE 

0 111 THIS FUNCTION THE VALUEJ* KbAD FOK A STUDENT Awfc USED 10 

C CALCULATE A CAPABILlfY INLSfcX FOR EACH bTUOENT + PLACE 11 ilV Hlo 

C rECOKO 



FILMED FROM BEST AVAILABLE COPY 



L SirTUWl: rn£ Li^CP FLAG l!\ A STUbtrVV'S K;£:Cb<sU iu 1 

C 3) Llorii\G TnL tlLt 

C ALL ^fUDc;>cfj IivCLUCiNG Tt-.i^cc OKL.Pr'>:!j wRL Uc Llilt^^. Ti-;...Ur 

C c CUKKtivTLY .-^ VtKSlJ.NS LP Tr.lj K^-.tJT{^L i o'iv LAlH ubcv 

L T.-ilY OIl-TfcK I:: Trie ALOuKlfHM ful^ LALCUL^T lixsG Vrit LAPAblLUV 

V- iW'JLXt A\6 The rGh'^/iTb FC'!^ LlSflK^ Iht FILL 
C 

C ri-L FLLLCr.i^b Lb.MHG,\S SS:T UP IHL LA1A oCr .^tFcK&i^Lt NOS., AWG THc 

C SYSTLM ?AHAKfcr5:R3, Tht 1-;HUT Ui\IT IS ThL PttKAt^sE fbh 

■^LiM-iitJi-lLt:^/ t i ( ) , I i J , I i-i/M 'j ) , 1 h I L t , i a3 { 2 ) , iS , { J ) 
C IHc ,\C. CR r<£COS PKi:5ti\TLY U- Tl-ifc FLLc, Tht r,C. uF S fUUiifvISlFRo.-? FhL 
SYiThP. rlLE 

t.-.TbOI:i-. ^ 2 Nl.vh iLtMiNCi^S 

C 

c {>.£ r-L.LLL-i{w ll^!Pc;T vALUcS Ai<t ri;;UiyALtr,Chi: lu iht ccRiitci p^:slTlu^s 

C iU TnL uJIPUT HizC-^:<[) 
C 

Ii-.Tr;oiA 2 i\A!-'.t{ L3),iG.<C(i),SAT.-i,SATy,AVK,KAi\k,ALb£,ocGi'i,TRIof 
L ALGl,CALC,PHYi, ie,KE:rtC,C0«c:f\T(6) , CGURic , LAPI.>. , iiiCOKu(cb) 
^ 5 CHbh ,;^AVKKK » KThACH , STUDaC , SLCGNL{o^) 
tgUlVALtMCc (CLUhSh,RbCCRO{ b) ) , ( KAHtC i } ,f;tCUau(6 j ) , 

1 ( iLNCCDtKjiLoKuC L9i ) , { CaPIN ,Ri:CLKO( 2'3 )} , I SATy. ,RhCUiMJ i ^■ ■) ) ) , 

2 (SaT V,i^t:Curfu(oG) ) , ( AVR , h s:Cl.kD ( J.l ) ) , ( KANK, RbCuKOl 3^ ) ) » 
J I ALGi;,k£CUKU( Ji) } , (GfcLiy.,P.eCoKt(34) ) , ( T K I G, RLcUkL { 3 j ) ) , 
■'■i (AL01,R£CORL'(36) ) , (CALC,f^ECGHiH37> ) , ( PHYS , HhCCKl} < 3 d ) ) , 
5 liC'Tai-CO$<D{ jy) J , (RtAiJtRLCGRDC^C) ) , { rjAVKNK ,R£CcKD( *U ) J , 
o (LLiH£.vT( 1 ) ,KtLL.-vL-(42) } , ( KfHAu-; »K£CGRb(3-i) ) , (CHtM, HECUKU { 38 1 ) 
V , (bTUCNC, hvLUROiZ) ) 

LATA r^ECORL/4ivO , 14 • * , IC ^- 0 / 
OlML-KblO:j NbKi-K^;) 
iJATA r,t"kK/« INPU • , 'T'/ 

L 

C THESE vXftOS AK£ f-OK THL uRQP SLCTiLK 
C 

iracGcr. OK AH (2) 
DATA DNA:^;/'ijKOP»,« '/ 

iKTt-JfcK * 2 uAT.i(i2) , STUDiNiXl 131, DRCPf-G 
liwUlVALcNCE ( DKUPi'LtRbCCKDC 24) i 
li^TL-GhR * 2 dLA.NK 
CAT A tSLAiNK/' »/ 

C 

L LloT SCCTlLtNi 
C 

I.S'TCGEk * 2 OAT llv{4} ,0AT0UT(4) 

L^UlVALiri\Ct (LATIN'dJ , UfcCuH0{4b)) , ( DATOUT(i), K£C0ru)(32) ) 

IfvTuGcK 0r<UP0(2) 

UATA DKUPO/' ' , 'Y£S'/ 

C CLiiAR atlOnD AKtA 

L Thl:5 IS THL .MAli>. LnVRV FUK F{L£ CRhATlC.N 

r* 

C UBTAiN THh i\US. OF I'^ihCOKDl aND STUDENTS AND IHL DATb 
.^JOS = 0 

.^»:AU( 1 SYS* 1) NlWFiLtNiNCKS 

CALL iNFO(OArt) 
rn?/-- ^iEGl^ TO IWPUT STULfENTS 

CKJC ^OU COkTI.NUu 

10 X - L,-'» I 

— ' . ' — ^o#j»<i,« -w^Aj^T V , ,. ■„" .. . ...... ."„ — r..,^ ' r — — : . — ~ . — z„ . — . ' — . — — — ^ — ."„'. . — ^ — — — : .... — — ^„ — 
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lU KcCJKCt I ) = 0 

20 I •= ^2,I>3 
^0 i<eCCK;:(i ) - dLANK 

READ ( IkGcV t i t t.KU=2 t Ou) KAMh 1 1 JJKC , 1 i^ifbATM , AVK, ^^NK^ ALui, , oCuMt 
i iHIGf ALGl fCALCTpHYbr I w T«U«Ai. , Ct ^£K f r CCOKSL t :i>rijui* L 
^01 rLKr.AT{12A2,Al, ^A2,>Alt i r- y .1 ^ , i t 1 I t I t U , I ^ , i 4. , 
I 12 T I.-^ f 1.1 f 12 t , 6A2 , t2 , 1.5 ) 

i\US = NoS + i 

t 

C IF cjTUOi^O iSw'T 0 This iS Ci^iXb AMi KcPLaCiS Ar, i:;^f^TM.>»l 



ERIC 



i!- (jruur-iO .hw. u) GO re 

C THIS iS AN uPUATc iG LhtCK fHI; \\U;".JtK 

IF (crULMnCGt. i.A.>ju.:>TUDW-j.Lt- .W IKFI I } GG 1J ^Ti) 

Call t ;<klj r { r-. t , o , i , ms , i ) 

LU ro 200 

L THt KG. IS Li< Su RtAu Tht CLJ ML&RCC UA I hS , u RCPf-Jj , t TL. ,iLST oL :>AVll ) 

^75 KtAL;( IFILL* bTUlj;<b) S£:CUi\U 
L Ch£CK THAT TH!l i\Ar<£:S iUTCH (OivL blULiiivT FAY NCI' KcPlALl. AfxOTHCiU 
D) 2c!0 I = i,i3 

It- (KAMr( I) .£G.birCGK(J(l +5) ) TO J^cC 

CALL LRRLK{NfcK.^,G,2,i\aSTJrI ) 

oij ro 200 

L ALL CHL'oKS SO St CA(v GU CALCULATE THt CAPA3ILITY IhDtA 
GG Tu 4uU 

2>9 lh(KSTUi: - ,vI,\(-lL) BUG, jCG ,4Cv, 
C if^LRL'S <\0 /'iUKl: RuuK, SO LLAVh 

Gu' TO ?.<5Q(J 

C 

t >'^;UKL RCGK ,SG PLACE SlUoEiVT viu IN KtCGRD CALCULATE CAPlt\', Ai\'0 
C Ui<lT£ CUT ThL" RECOisD 
C 

M 400 CONTl.'vUi: 
S C 

C CAPAblLUY Ir^UfcX CALCULATIONS OEFFfckS f-OR feACH USLR 

|j C MS l!\'PUT VALUt COULD RtAL IS TI GALLY Bh 0 , 0 iNOICAlcS 
■ C KlSSlNC DATA 
C 

C THIS OWE lb FOR HEK 
C 

CI = 0. 

i'.Z — Cim 
SUMi=U. 
SUM2=0. 

00 600 I = 33,37 

IF( fthCGROd). tQ . 0 ) GO TO 6CC 
SKjiM = SUNi + HtCGKiJ( U 
Ci = CI f i. 
600 COfniNUfc 
Q IF{ SAT.v.c(;.0) GO ru 1.000 

600 GONTiK'Ul 

■-■ C^. + I. 

- P-.y-it y6 ■ - - - - : --- - - - ----- - 
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III ojU.<Ci. il,-.n?'.tl Ll.ll..v> 

I'jOO LoKriAUl. 

C,^ = t 1. 

iOM.J = oU.-!^ + (SmTV - ^UO.)/ c>. 

iF( A V'R.Lu.O ) bi' 1U i^uC 
= + 1, 

SUH< = 3Uf-2 f AVK 

.lf-(isAi\K.S:W.OJ OL- TO 1600 
= L2 + 1. 

SU.".a' = bU.-i^ f (r;A.\K fiJ IC 
loUO Cc-KThMUt 

IF {PHYS.fcw.O) GC Tb loOO 

L2 = C.i + 1. 

SUM2 ~ oUf',^ + PHYS 
it)00 CUhflMjfc 

I F{ ic.r:i.-u) 10 zocc 

•= C2 ^- i . 

2^00 COAlINUt: 

IF (kfc/^O.tv^.u) Gt TLi i^OU 
= C-i + i. . 

SUM^ = SU'r./. + UcAO * 7. 
2200 CoKT I ivUfc 

IF(Ci.tw'.O) Gu rO 2^CQ 

C2 = C2 *■ 1- 

5UH2 = obf;2 +{SUMi/Ci) 
2^00 CGN1 UUt 

IF ( C2 .GT.U.^ > GC TG 2'jOO 

Cap IN = -9'?^) 

Gb TG 2350 
2bO0 CAPlfv = SUF2 / C2 
2l>50 CblvTlNUt 

IF (STUUNO.GT.OJ GO TO 2700 

.N'lKFiL ^ .NIwFR + L 
STUUNO = NINFIL 
00 2600 I = 1,^1 
2o00 UAlIKdl = UATL(i+4) 

WK I T fc { I i- I L fc • N I i\F 1 L ) K.*iC Oku . 
GO TO 200 
C THiS ViAi AN UPuATt 
2700 CGKTIWU& 

K(:CQKU(24) = ScCbND(24l 
uC 2710 i =26»28 
2710 RcCGRjd) = StCGNiUlI) 

DO 2 72o { =48,65 
2720 KBCUkliJl) = SECui^iDd) 
C HAVl!\-G PPCShnVbU iNFLKMAT I0i\, KfcWKlTc THfc RbCURu 
WRITl ( IFIL&' STUONG) kRCCKD 
GO rO 2U0 

C 

C HAVING FlNISHbU, UPDATE lHl£ SYSTEM FiLt AND GG LIST 
C 

?jOO CCWTIIxUF. 

Win lTfc( liYS' i) NiKFiL,NlNCRS 
GG U. oOOO 

Ps&Ci t IB^ ------- 
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C Inl:> oLtlloiv UCLblr.o STUUbi\TC ^P^t Iht oYc^Tb'^ 
C 

cjsrhY j;^bp( i.<OL\n 

U CcT CUt^KLivl DA'ft 

CALL INPL^{C/\It» 

:W.S - 0 

C 

ZJkjL poRMaK i2A^, AI , •j2X ,13) 
iS'GS ^= :^,US +1 
c ChfcLK hlULiV^ 1-U.{ VAI. lOII Y 

li- { 5l U0.'«C.b V.U .AiVO. :>VL)Di\b.Lfc. M ivr I L ) Tl> "ioGO 
J = i< I .\ S 

v.;;LL kRr..,.R{ ,G, I ,'\LS» I , J ) 

TiJ 3^00 
C Hf.AL. THc SiUbbKf HECOr.U 
joJC AcAD{ 11- ILc' S iUCMJ) RHCGKU 

[t~(O.^GPfG-!.w-0 ] (jO sU 4C00 
I = STUDWu 

CALL c;R.<Ch'(LhAH,U,2tNCS,n 
uo TU 33QQ 
C IF SriLL ii\ COU:'«Si: uhtCis Tht KA.XL 
^uOO Ca.M [KUt 

au -fi 300 i = i, 13 

lh(i.rUor\M( J ) .LC. NAM£(1) ) Ou Tij ^JOU 
J •= STUoNo 

CALL LRkOk ( bWi^M , C , 3 , NO S , J , 1) 

Ob Fc JiOC 
43UO COWTIhUr. 
C ALL ChfcCKS,0r<OP STUOENI 

CROPFG = L 
C PLACE DATi: DKOPPfcD IN RfcCOftO 

CD 4600 t - i,4 

DATOUr( I) = DAT(1( 1+4) 
4bC0 CUfs'TlKUL 

WKlTbi IFiLt^STULNO) XECORU 

C 

C CLRRkCT COUM' UF STUD&NTS 

NINCKS = NINCRS - 1 

GO ro 330u 
C W&'Vt. OKUPFtU ALL SHjUfcNTS 

4£}60 Wi^l ri:{ 1SY5' 1) hl!\FIL,iN!INCRS 
C ANC FALL rhROUoH TO LlbT KOUTCKl: 
C 

c jHf. PUKPCse OF rnis slctiom is tu PRoouct a couRst. listing 

6NTKY LIST 
yOOO CCfsllKUL- 

C GET THL f-iO. OF RfcCUROS, AND OF STUO&MS, AlvD DATE.bTC. 
:<fcAO (ISYb«l) i>iIi\FlL,MltvCHS 
CALL tNPG{OATb) 

li; = 0 
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tPAGi; = 0 

D- 9U0U 1 = 1, .si.M-lL 

ifi ih .GT. -.1 ) gl tj auoo 

iPAOb - IpAvl + 1 

fL( IPtUKT,?^'?'-} ) bAT):,lPACt: 

IH - AO 

7S99 ^U^"!^«.AT{ih.l , l\ , , 2X , 'Ali-iS (.UUivbi. i-.l.SIcK' , JX, 

1 ,!3t>X» •Joi' , .;X,4A2 , 2X , ^A2 , LX , , 

2 / 9.1X, •f'AGt:' , [4 / / / ) 
/-VVci rOKFAl ( 

3 IX, 'WAMfc* , 22X , «.'i.S. i<Li'..' , IX , 'Ku.' , iX , 'LAP.' 

, IX , 'SAT' , 2X , 'SAT , Ix , «AVK« , AX , 'ALb' , 2X » 
5 'ALG* , IX , 'OLC.".' , 4X , 'CALL' , bX , 'iQ* , 4X , ' CO^iXt M'5 ' , 
o f>X, 'Cr^ciSSiX , •Oi<uP' , La , 'OaTl-' , 5X , 'UaTl' / 
7 AIX , MotuX* , iX ,'r.ATH' , LX , 'Vf.Ha' , .->X , «K!^i'<' , 
o IX , 'tLL.!* , Ia , 'iNT^' , 4X ,»T.s{u' , 4X ,»PHYS* 
■i 3X j'HbAD' , 23X , 'c.yTHR..-J' , 2X , 'CKCPP5;D' / / ) 
3U0U i\t.Au( IFlLc' ( ) KtCukO 
IH = IH -I 
K = DKof-hG + 1 

■rtRi rh( iPKI^l ,b001 ) NAML , IGWu, STUiJf>!0 T CAPlN,SATf'.,SArv,AVK,.-<A!\^, 





ALGl, GEu^s , Tkig , Call , Pi-;Yi» 


, I >j , 


HtAo, 




2 CCHtlvT 


, COURbfc. ,i;kbPU(K) , IJATIK ,UATbuT 






SOOL J-oKKAK 


IX , 1.2A2,Al , J.X , 4A2,Al , 


U , 


Ij , 2X , 


12 , 


- 2X , 


, 2X , 13 , 2X , 12 , 


iX , il 


, 3X , 12 , 




3 3X , 


12 , 2X , 12 , 2X 12 , 


2X , 


Id T 2X , 12 


T 


A IX , 


13 , IX , i2 , iX , ^>A2 


, 2X 


, 12 , 2X, 




£ iX , 


4Ai , iX , 4A2 ) 









9000 CCiXYINUli 

{PAbh = IPAGfc*! 

WKlTI:( lFRli\T,7999) bATh,IPAbc 

hK I Tfc ( I HK I ivT, 9001) NlhF U.,i\IivCKS 

9001 PUKi».Al(iX, , 

.L 13 X , 'THii-Kt AHt' ,I't ,» RkGUKOS IN THt STUObi^F I^IL;.« / 
2 14 X , 'uf- ThtS£» ,14 ,• STUDnMS RtKAliv IN Iht COURS.'; ' ) 
P>L-TURW 

/* 

F h A i. A I f ■. S U i> T , A I M S H b A I. 
// bXhC FFuRlRAr^ " 

i>U8!(0UTl!\k H8Li( INUN I r,LE VCD 

C 

K, iHf: PURPOSE OF THIS RuUT INb IS 10 ADO iMil. iNbUKHATlO.\ lU TKu 

C sjUb STICK 1^1 Lb A.\!J THbiN CHAIN IHb ^NPUK^■|ATlu^ IC^ SUCn A t;AY THAT 

C ALL QUfcSTiONS RF.LAIT.0 TO FHfc SA.ME TO THIS RuUFINK KbAUS THb SY^TfcN 

C r-ILb ONLY TG ACCL-SS THb HfcAOcft f-ILL, IT RtAUS THb HbAUEftS FRuf/ THl 

C PbK«Awbf<T i-£Lb, IN (jiWErX TG bUlLD A hAP Ur FHL GUbSTluN V-llc i K tbk'.. 

C THIS HAP ALLL«aS A DIRbCT ACCESS OF ANY QUESriON KfcCuRU. THU5 .M8u CAKGi, 

C May rifc ifs Af\Y OnObk, THOUGH TIMfc WILL bh SAVfcO IF ThizY ARE Ii\' L-_SSOi-;, 

C SEGrfCNT + TYPE CJKbbR. 

r 
\- 

L THi: FIRST ^jECfl'JN OF THIS ROUTINE 8UILDS THb TABLE, REAUS The f^jfj 
C CARD, ftcAOS THb CGRRECr wUESTILW RbCORD , AObS THE i'60 INrGKMAT ION, 
C A.\0 REWRITES THb RECCRD. THIS PREVENTS DESTRGCTlGN OF ANY tUbST. 
C VALIDITY INFO WHICH MAY BE IN THE RECGRlj FRCM A PROCESS RUN. 
C 

C THE SECOND SuCTluN OETEkMINES WHERE TG STARI CHAIMWC FXCM, AMj 
C shtN- CHAINS FHUi-i ihAT PCI.n. THIS PRcVEKTb U(N-NfcCbSSAr'. Y REcHAfM?vo» 
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L Y«.r ALL i^.S TnL '^ixt^'c aLUI [iJ. lu UStrL f bh hsITiAL CfiAl'vtl^u, m ^P 
I. 

C i it f' ILcS UScrO inlS is Jul f a;; Ait A:> FiiLLoWS 

C 

C 1.) ^uCuAi;i> ^fif M.<i: KcAu [ utv^LK 10 FACfLlTPlr. r^Ar l-M.- f- IHL 
C HfcAoi-:'* hlLfc* TvL-Lv^r^l* .) '»^.'ILL Lt hl-Ai> T(. DC rL.Ni-' 1 »\!r hCW KAhY KLCljKuo 
C AKl lis I Hi: uUhbilbW HILL* 

.IcCRi; > WILL cG.fTAla 1 Hh M*^iiLA cH rjiP.i-CllKY ^^cCUalJ) Cv.inKcML V UShu* 
C htAiJLK hlLr 

i) }hc r.cAUhi< MLt Miivll:r<S AKfc .^tAb IMu CLKr. IK tn.CLlx IC bUlLO M 
L iMbLt y-iiICH A\LLurS UlRLLl Acv:cSS uh JHl wOLoTUa FlLr 

u /) THl OiKL'wlOKY pL[.\IhRS AKr. CHLLKc J 1 J- OiL:Ti:rsKL\r .^HlK^, ^-^t li'^'^J CHAI . 

C -to, i^hJ AS IHL JiPcCTbKV ^^cCur.i^o aI- i CXIzATLOt IhulK KUTi^L.sS AKi 

C PLALIrJ l\ ThC CiKcCfi.KY i^O h.iTL.^5:i '^f- Ttib CG.<^cC T HhAOizR ktCuKob* 

C 

C 

C CUrSriCj\ riLb 

C i) Thh vLlLSrii:*-! KbCvjkDo FOR WHICH l<oU L iMho;;rl AT ILx rLAD At.L 

C kLaui Th'b Ii\r-0* ADCilC, AMu AKL TnL^J KlUKlTTfcN* ThUS WUL^TIGit J:tL•JKU^, 

C A:^h CaCATci) IK oUdKUUTii\t h:LAUEK. Vhlb KOUTlNt ACuS M3o iNFLX.MAriLW. 

C FhL PrvU^tiS K:uTl\fc:S ^viLL AGJ IhE <^Ut:bTAGN VALIDITY I NT u^c-ii-U I Uiv 

C /.) A FAS:> hlLL oC i^.AOC THRUUGH THb OULSTIuN hlLu TU kLau IHfc HbG L'^irot 

C Ar^O PLAi^L ir i.^ A Ta6LP* CHAIal.xG V^ILL TAKL VlACc l^ IHK FAaLl:- 

C A FIWAL PASt> UILL KLAL + Khv^?^ITc LALH kLCGkO WUH T^t: Ct.kKhCT CriAl^ 

C f^wINfLhS* 

C 

U i>lKLtTL?.Y hlLil 

L ij IHF •.IRfcCTUhY FiLL y (LL COKTAIj^ a khCc^u b\jl< LACH SCJHL(A SCuFS IS 

C JmI. AKtA UHICH THt ur:FlMriOi>i Ci- IHc Tu ekCb/^.PA:>bL:S • A i^CLPL WILL 6t 

C LllKcU A LcSSuK , OR A SfGMCNT* WOku I OF bACn kbCOfvO nlLL t-^Cl^T 

o Tu THh FiHST nbCUKlj OF THC CHAIN FuR FC i\a* !. THUS A l^iKLCTLKY Kl^^Jsj 

C lo EUUlVALkNT TO A SCUFE* A SCUPu aILL ^fc: A LtSbuK IF LLVcL ■= o, uThC.< 

C "'/.iSc IT k^lLL Bt IHL GNriRt LbSSGfv 

L 

C IhL Flk:>T PARAiSeiCH, ia^UKIT jj>bCiMr-S LtViLb FRO^i y^HlCn THb 

L r'.ol) .<L:CuKL'S{oU-CHAK.Ti:bLDlC) V^ILL bb kLAU* 

C Ihb [iK^r OirtLisSIGK WILL IMtlHX JY LbSSON , THb SECONu b / OtCK 
L THb THiKU vilLL bb 1-4, WHiiRb kOHU 1 CLhrAIi's'S THc SCGMfcHT NU., 
C ViLRb I SirGMbNT NO. 

L WOKO 2 = TYPb 

G K'ORU 3 = ReCURU Nu* UF FIRST OUESTiGN fNtCORO 

C a'GRO 4 = NbiMBbK OF wUbSFlUN KECURliS 

G 

CUiMHON/SYSThM/r\LtSS,i\Dt:CK,Kfti:StNWU£Sr,rNSTUU 
CG«MCN/FlLbb/lK"l(2) , IPK i , 1 W2 ( 2 ) v 1 HcADj 1 D i 5 1 CUGS T, 1^3(3) 

2 , I SYS, lVi4( 51 

[MbGLR » 2 LPfcKM , i\PI:'Kj»'. , lORbC , 

PrKS(:>G), i\G:b{50} , HKC0KD(6S) , L F A6Lb ( 4 f iO,40 ) 

3 , HKCGKDC'iO) tLLSSCKt SEGKNT , TC , H8U ,KLY{1Y> , 
^ SKILi, :iKlL2 , HbOlA, TYPbt UUiiST , Pl<bS{13) ,CGUR3b 

iNlLGbK ^ 2 QSTIGN(70) , UkCrRY(200), CHA IN ( 3 ,400G ) 
2 , PUINTI T P0INT2 t QPUINT , wTG » Gf^iBO 
IWTbGER RNG » DECK , R^^A^',b{2^ , HiiAO , POIi^iT 
DAIA RhAP/c/*HBu« •/ 

LUUU^ALENCE (LbSSCN , MRCGRL(i) ) t (SLGh^^T , )MftG0RU(2) ) t 
/ (FG , ^^RGUKD{3) J t ({^hC , ;iKC0R0{4J ), {KtY(l) , MkCuRG(S)) 
r , (:,KiLL, r'iivLo*<D(22) ) , (;iKlL2f ^XkCu.' U( 23 ) } r 
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lii 



1 t 



tvTL , Ci.TlU.^(6) ) 
(wi-i. iKf f .,i>T U,A ( ) ) 



II 

i'i 



ERIC 



/ ( urt^u , QSTioK(7 3 ) , 

iijrtGcrt i.ibr(2) 

IAlX ~ J 

KEaO( ISYS' 2) l.Pt:R.''!,i'<Pt.-li-' 

I f (LHLi<f-:.uT .0) Gl TL' 2i,C.. 
L.aLL cRKUKlKisAKttU, 1 ) 

MlKLtS = LPrfi.'. + I 
RbADdSYS' i ) PlKo 
:<tAO(lSYi"i ) 

I I ~ pr.s'i(Lr;S ) 

U = PTKb(LLjJ + KuS(L[-:S} - L 
UECK = 0 

i;0 400 K.CvJ = I i » [ 2 
C KcA„ THt HcAjtr^ 

KL.4iJ( IH.:aU*K.Vl J HHCUKO 

bf:CK ■= DtCK f i 
C PL-H!_ The ilsFu IK ThG lAiiLt 

LTABLfcCiTrJlICKtLtS) 

L.rAaLL(^,DeCK,L{:S) 

LTA8Lt(4 ,0£CK,i.tb) 

dUlLT Thl. TABLL WQ 
CUNl" iiNUL 

KtAU( IWUWIT ,B0L,LNU--=i600) iVRCCkC 
FUK-yAT( U , U , 13 , i2 , i?A^ , llj IL , I, 

fKfcX = iKbX + i 

kEAD a i^hLORL CHhCK [TS LboSGiN 

ir-i LtSSOK.Gt. i.ANC.L.i:ScOM.Ll..LPhKM) uG TO 90C. 

I = Lessor 

J = StGMNl' 
K = TYPE 

CALL E:RR0K{R!>)A.MB,0,2, l«£X, I, J»K) 

GO rc dOO 
900 CG.N'TlWUt 
C K'CW SL-ARCH THE TABLiL 

II = NOS(LfcSSON) 
00 150u I = i,U 

iF(LTAtJLEll, I, LESSON). Nt.Sr.Gf'AT) GG TO L50U 

IP(LrA8Lr:(2, I ,LhSSON).(\t.TYPE ) GO TO i'300 
C HL'kE V,t*Vt FOUNO THfc TCST SO CHECK THE QUdSIIbN NUMiiEK 

rF( wUcST.GE.i.AK0.QUi:Sr.Lb.LTABLh(4, I , LESSON )) GO TU LUGO 
C THt QUf.:STlCf«i NUHdER IS INCORRECT 

J = LTA8LE{4 ,1 ,LtSSOiN) 

K=WUEST 

CALL b RRUi< ( fifi Ai^iE , 0 , 3 , 1 R L: X , J , K ) 

^feAGifcuit a- , , - . - - - - ^ - ,. -- . „ . 



400 

nAVlNG 
oOO 



C HAVING 



HRCi.R0l3) 
HHCCRUCfJ 
HRCLKbx d) 
r!RCGKO( 13) 



CAtv Dt.Gii\ TL (••.hAU httC KcC'J.\uS 



12 



12 



IX 
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erJc 



Al.rs III iCJKLc SlATtM..\T Ll.->Ti,.v 

C C;tcCi\ Itrl I'ibL Ai\,?. To i\U/dl.KS 
loCv. I r ( f ...ol . vt. Ti..Lt .2Cv, .A(»L. . ."fc^..iS5.. C) C'. li lUf^ 

K ■■= .".BO 

CALL tKKi.A (..;vAM£tC,A, [!-;LX,J ,K) 
C-u To JOG 
n C ALL f^.is. it PLmC.!: 1:vFw UU DibK 
* iluu .^■•'iL •- Ll '*l3Lk{3,i,Li;iiSOf-. ) wULbl" - 1 
[r( Li.bSG!\.L r.i^. iiMtb) ML i^L LboUu 
;"{cAj{ IwvJtoI ' rti\G) OiilUfv 
vTi:. = l(i 
jKeu = .'..jU 
v^oTLuivdi) = SKILL 
v;i>rfi:is( l-i } = Sis.lL/. 
i.,SriLK(l?) •= McDlA 
uij L200 J = 1,17 
■^STlufv(J + mC) -• KLYCJ) 
1200 H.KrihUh 

UC l;00 J = 1,13 
!i3ri'oN(J + 3? ) = PhuS(J) 

A»<ir(:( luutii" 'KKG ) abriu.\ 

iT'J TU 300 
1500 Co."TI,-iUt: 
C nfc F.'aLL rHKUUGH !-b.'<L ViC i-^'^TCH 'AAb ruUKu 
I = LtSSON 
J •= SEGMNT 
K = FYFt 

CALL fc:^ftuR {KisAf'!fc,0,i), Ir'.LX, [ , J ,K J 

t 

C FMlb J'.HOLi: bCHi'^.AGEGY IS Tu CbftiK^lK't: WKlCh H::iSLfv T'^ BfcCL's CH«li\lKo. 
C IT KILL bfc t-ITHLR fhf: FlKil UNCHAl.N'tO LEj>SO.\ OR THu LuWtSl LtoSOi^ fuK 
C ivH Iv,H Ai\ ^<i)C ViAS Rl:/>D,. WHICHtVER IS Lb!'.r.br 
C 

C flKSr OtTfcRMliVh LiiSr UNCHAliM-.0 LcSSCiN, AND LAST USiIt -OlKLCTOr.Y KuCCnu 
loOO LG/jT IkUfc: 
10KbC=l 
LtSS = 1 

1 KLi-VCL.Nu.C ) bC TO 2000 
UO 1700 1 = 1 , LPEkK 
J ^ FTRSd) 
READ (I HEAD" J) hHCOHO 
Il^( HRCOaJ{7)-tQ.O) GO TO 1800 
LcSb == I 

IDKEC = HKCURi;(7J 
1700 CUNTINUE 
1800 C'JKTlNUfc 

C ir- IHiS TriL- LUWL3T LhSbON FOK WHICH f<BC CAACS KLRh KcAO Wc hAVfc 
C THL CoRRhCf PARAPET hKS SO UL CA^ GC CHAli«J 

li-(LtSS.Lb.KlNLbS) GC TL 2000 
C V.£:»Vfc RCPLaCLJ UH AODfcD iM30 INFCRKATILK TO THE ALREADY CHAlCxtU FUKT fOW' 
C Uh THE i^ILES SG WE KUST RECHAIN FRGH ^livLES 
LtSS = Kl<\LtS 
li = PTftS(LtSS) 
REAU(IhEAO» 1 1) HRCORO 
10R6L = hRCCROr/) 
C If- hii uCCuRUS «EkL KliAU AWD ALL KERE CHAlhED , ."^hfURfv; 
2000 CU.sTlNUfc 
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^ ill 1>T;»1L^^^ ,T LioTl-.C 

c In:: LcSSCx TG Chi* I*, LloS 
t 

^LuL U^^CT^y ( I) = <■ 

C 'jt rt •'..^^ira The iof ai\u Lwbi » Lt. * .1 fHi. wUuc>Ilui\ fill 1G rl LhAl:ii:0 
ii PILSlLb^^b) 

i L = riKCOi<b{c*) 

LA ^ riKCL,sO(o) + r.KCCt<0(i3) -1 

ijL 22GO I ^ li , 
K[ AO( 1 vUlST^ 1 ) kST UjU 
CHAI{v(3.tI) ^ QFi. 
tHAIK{.>t I) ^ Q^hij 

C wirM't ALL St 7 So iVAKT 1'C ChAlN 

C >Yt. ::,rART CHA£MNG 

»^ 

C Of LGOP FUk ALL LtSbC,N;S 

M 5'jOO Lb = Lf.SS,LPl".KK 

li^KST = PTkSlLS} 

ILAST = l'lKi>(LS) + r«jGS(LS) - I 
C OG lOcP FGH e/\Cri hLAjJcri 

LiU 5>00U HlAD = IFHSI , iLAST 

READdHtAU'hcAU) HKCdHO 
C i;CV. v\: fcbClfS T'j kU(-; THKOU^sH CHaIN FuH THL KfcCGKUS SPirCIFlU:) 2Y rnt 
L HcALfcK, FIRST if:! UP TH^; UG LuOP 

IRl = HI<tORD(b) 

Ikl ■= HHCURD( 13) + IftL -i 

Ju ^500 Rl\0 = Ihitlki 
C IF ho TL NUfibbK IbNbKl: PbCGi^O 

rO = CHAli\{l,F;fMG> 

J F( TL'.cCi.u)Gu ID ^5G0 
C iiOr IF ru, THfcM StL IF FlKST uF THAT KUf-iBtK 

!^6C CHAiN(2,KN0) 

iF(OKCTKY(TU).Kt.CJ GO fC 2b00 
G £rS THE FlkST Ih ThF GhAIN, SO PUT H£AD PGINTtU Tu PCJlhF TU H 

DKcrPYcro) - RNCi 

^£GC CON r IN JE 

C ITS ftOT THt FfRSI, Su kE .MUST SORT IL SdT UP GHAI.N li\ MBU UkGLk 
C riKST Sfct TF THE KfcW iMBG NC IS LCSS THAi\ THAT OF IHL FOP oF T hii GHAIN 
i = OKGlKYdCJ 

IF(MB0.GI:.CHAIN(2, n ) GC TO 3CC0 
C IT lb SO PLAGCivEh HirGGkO AT THl TOP GF THt: CHAIN 
GH.AIIN(3,RN!J) = I 
URGTKY(rGi = hh€ 
GG IG /^^)00 
3G0u GuWTlHU'c 
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Al ;S III ouUkCfc ^TA7u.Mui\r LlLlt.'vC 

C riALI/.h H'.r. Irtt L -!jl- 
><»0o f'Lr\i;i - Ch/U\( j ,|JL u\l I) 

C Yu'j AT i.NC tF Cn>^l.v bL. PLACl; I hfc.-.L 
C Hit lK( jJt P - I :\T i ) .<ht.: 

C .SOr Al l.i'Jij iLi. ir I'J JLLl liui HLKc 

Jl>Lo II'IMcC (.HAli\{^tJ^l.I.\T^:) ) 16 4^Uu 

L ir ..tL'.'NUo 3cT.,tf:;\ PuIkTI Af\b PwliNl";? 

tH\i*v( J,i<;,iu) = PbJKT.: 

CKA Iiv( 'ir PU {wVi J = i\,\L 

C CL'jotb FHi: LHAl.NilNb oo LuLP 

C Nt-w KfcWt-.UL Thi-: HcAUEr ITH Kb Clt^UCrUKY Pu£.\Tu.>- 

HRCUaU(7) = lUXbt 

>/K I r L( IHEAU' hliAD ) hRCu.- C 
C CLCjoi: iHb LLSbOf LGCP 
5iOCO CCNTll\Ut'. 

C tsC'rt ;>TAKT A Ktrl^i uiRiiCT^.-fY RiKOKU, tUT IF .\'AVY uWLY AT XtiL U\>j uf Inb 
C cOUPSu. 

IF ( LSVCL.bO.O) v;0 TC t>3C0 
1F{ Lo.NH.LPl-.PW) GO I C -jbOU 
'jJtiU CONTINUE 

kKl I fcdDlPM&ntC) bftClKY 
lOnbC = lUKhC + 1 
130 ij^UO [ = 1»<J00 
'j^lOO DKCTRYdl = U 
C ht.*kl- OONt » CLLrii: P.AJGR LUCP 

^)500 CUfvTINUc 
L FIMbHtllJ WITH THt ChAIMf'JG 

C isC'A f'lAKt A PASS iKKLUGh THfc (JUe.3r rILt TC PLaLL POI.\TtKS 
C IN THfc RbCOKOS 

II = PTRStLdSi) 
i> = PTHS(LPf;hM) i .\'iji(LPfcKi>0 - 1 

HkAU{IH£AD'Il) HRCORO 

J I = HKC0Ru{8) 

KfcAOdHEAO* 12) HRCORO 

£2 = HftC&f(Di3) + HKCUR0{13) - 1 
C NOU PLACt PGIisTCKS THt QUfcSTlLiN- FILc 

l)U 5700 KNQ = /I , 12 

Pi:AU( lUUtST'.^iVL) QSTIUN 

i.POiKT ■= CHAli\'{3,RNIj ) 

kRiTE( KU^ST'RWOl QSTIOK 
'3 700 CIJNTINUE 
C RF-WRiTt NO. OF Oi!<£CTtjRY KlfCCKOS 

rOPvfcC = iOUtC - I 

ASUTh( ISYS'b) IDRFC 
C LIST THE FiLt IH .^BO ORuEK 

LNTRY MdCLST 
7C0c CohriNUlE 

i. 'ALL INr-ul Crt) hi 

^i.A^>,^_j>/>. : .. . : - -„ „:., „:;- - ,„. - „ , : . 
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IktA - 0 

l<-( ItJKut.Lfc.C J Oil Til ^icoC 
c L^.i-i' i'ij'f bALh iJI.vH.IGkY i-stCuKu 

.vfcAOdCU* ICi';) ivkC IKV 
I - u 
C LOtP i-ON fcACh To 

:jw oUOO ro = 1,<jS 
.'N'G - L}KCIi<Y(TCiJ 
7iCC U-(ftKU.Lt.C) Cu TO oGJc 
fh( l;'..Gr.o) Tu 7'3UO 

IK IJ^'^l^■r, 7001) uAit , iu.>, ipaui. 

Lv< = iu 
7l5Cv> uGWTiivIUt 

IHcX •= iKt X + L 

KL'Ai;( (wUfcbT'R.NL) (.STICK 

LaLL LbTCU!:(L-Sric\(i2),LriI) 

/,a1TI. ( lPr;l<><T,'iG(;i ) ( .>bT I uK ( L ) , i. = I , i ) t ( uST IcN ( L ) » L= ^» 7 ) , 
Z LlbT , (^Sl ,L=13»15) , (C-bT luixd.) ,L = ^i, 7l J 

i« = I'. - I 

OL ru 7-JOo 

cIcUO UUivTIMJL 

•aRIT£( ^^'KI.\'^t•5 7ol) ixux 

9000 CALL IfMl-0( i>ATl ) 
0 ivO. UF wULiliGK ktCOiiOb 

REAbdSYb'S) UK'JM 

IFd'^KUK.Lt-.v) GO ID '-)7G0 
0 klAL- AKu 'A'Rirt tALH KC-CORD 

IW = 0 

{PAGt = o 

uij 95)00 HK'G = U IQnLH 
IF{ iW.uT .i) ) GO TO 93t;0 
IPAGfc = EP^GC + i 
WKiTliC lPRir\T,930l) DATL, IPAGl" 
WR1TL( fP}< INF, 9 30-^) 
iW = 10 
9JO0 COiVTlNUh 

RCADi UUtST'K.NU) W.SUON 
CALL LSrCDl:(uSTIbN(i2)vLlSr ) 

.•iRIThC IPrtIhT,900U (QSTlUivC L ) ,L=1.,3) , ( wST 1 { L) , L^ i), 7) ^ 

LibT , (wSTIOlNia) f L=U, 15) , ( wSTXOlsCL ) ,L=2U70) 

In = Iw - 1 
9b00 LLr^TINUfc 
9700 CO.NTI^Ut 

V»KlTt( lPft^^^lT,9701) IQNUK 

.-.fc TURN 

/OOi i-OK.MAT{lHl , 7X , ' **❖ «,*Al/-iS MiiO LlSTlMoS 
t i,5x ,«JGb', , /dA4 , .iX , 

J ?A4 , IX, /.^^ I 1.JX ,«SCO?i: {>lU.'^3tK*, 14 , 

vfcgi:,;^^;^.. -. . . . : - : - ,. -„ :„ - ;: - - - : - , " - _ 
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Al/S III i.LCKtt bTArci-iL:\T LiSIIivU 



k oIa tM^Aof:* t ///) 

iOL.L > u'^^rl/'T 12X t lid f » 12 » JX t II » /^.A tic V Ia f 1 A. t iX 

*: f 2 f IX t 2A4 flX^^tlt 3*<T ii» 3X7 I*^? £^,13, 
I-!t2X jIjj 2x t iJ> -'^T l-^ t>X 7 1^ 9 
, li , IX , iJ , ILClXi iH ) /iHO v-a , 

.1 / ) 

'T( l.\ , 'Lb3b« , IX , •S^.u' , IX , '}P' , iX , 'v.:c,r» 
MG', IX , 'ho' , IX , 'v-GKALCr', La , «SnL' , LX » 
, iX , , IX , 'PCT.« , S.X , 'VAL'.' , iX 





t 


i 


L i t 






9Jo2 






I A , 




' SK.L 








,:x , 






H 










IX , 


A 


^x , 




» I' 




f-'CK.- 








FOR.'. 



•AVC-' , :i>. T 'AV^', jX , -J/. , , >X , «Hi 



•L'iw* f iX , »Kr. bPUi\Sb CCuMfc.'-lS* / 



, - ^.vo/iQi^* , ?X :.A , , 7X T 'Kli..' , cX t 

' , i>. , 'KT* , LA , 'OP* , iX , ''.C', ix , 'cr* , IX , 
, Lx , 'CP* , iX T 'i^i^' , IX , , L\ T 'bKP* , 

•GRP' , iX , 'JLk'T ix , *A* , , 'o' , ^X , , 

»0« T -jX , «(:• , 3X , , 3X , »G' , .-A , 'n' , , 

, 3X , 'J* / / ) 

ATdhl , 7/. , 'V** •«I;;S uUt-SriC.-: LliTlAu' , 

' <^==?', pi X , *JCifc'» ^.'Xt » ilX « 

, IX T 2A^ / '5tX , »PA.,-c' , 14 ///) 

iTdX, j(/J , Li/ , 

2 'TMLiNfc AHb* t in r ' t^cvCtiD:* If.- TniS h.iLli" J 

PHaSc Ait.$Pt<Ci, « Ii'iSHtAi; 
// cXtC f->-C;t<TKAr>: 

v:{jM'iGN/ f i L S / iV» ( i 5 ) 
Cu:';i''<G:N/SYbrtK/lL{:3} 

IMLutk * 2 AsN oVsiiK { IGt 135) ,Sc.CLNG( iO, ic5) 7i:jSTiuu( lb, -:^,iU) , 

2 liAftPLhlcC) ,bi;C-W(oO),^UAfv(bU) 60) ,(''iX( oG ) ,F.:PLY{6 v:, lU) , 

3 Hl:AJ!LR(o5, iU) 
c.yb{VALei>;Cc(HcPLY{ ,StCC:M3{ 1,1)), 

^ {HEAohRd, I) ,StCCfiU( ICcO) ) 
CALL GPSYb ( • LCAD • , ' A IMS?:^C2 ' ) 

Call upsys( 'lgao' , •AiHSiAPt-:' ) 

CALL PRO C H L C S bOH , 0 cCK. S , ANb w t K , T i Li\ , S I: FL Y , hilAU LR , 
^ SA.MPLb,5&tV,r.hAi\,hlK,MAX ) 

CALL GPSVc) t • LGaD • , • A. 5 MSPkC-5» ) 

CALL PftOC2 ( L ii S SOh , i)LCK S, ANSkcR , S tCGisC , OST I u-M , 
2 bAKPLt,SC£:V,^ifcA^TK^^,^•AX ) 

tND 

/* 

FHASn AIf^.SPHC2,* 
// kXLC FF-CRTf<Ai\ 

SUaHOUTIME PRuCl {LE'^-".ON,Ci:CKS, ANSKE--^ , CSTlUiV, KcPL Y , htAuEK , 

4 SAHPLE , SGEV, F.EAN- « MIN, MAX ) 

C 

t THl:b, rhfc FIkST GF THE TivU AIMS PROCESS .MjUTIKES, CUES THE ACTUAL 
C GKAolKG, UblKo tiblH THE iTUDtiWT»S KfcSPUKSES AiSD THE CCP.ktCr AiiSvJt kJ. 
C THIS KCUrXi^fc KILL CALCULATE I OKAt/E FUR EACH DECK IN THc LlSSOSV- AS 
C V.tLL AS THE HlWlMUf-i, MAXIiMLK, MEAN, STD. DEV. OF EACH uF TKh GKaUES- 
C li> ADDiriG.N ThE VALrCITY, Ai'^.O KESPONSb CUUivTS ru8 THE uUcbTluK-:i 
o ALL OGhc iH CURE iW THIS KGUT[N£, ANL PASSED TU THE ^isO Pi<uChSS 

O C UuUrir-it A.S PA«Ai'l:rtrS. THIS KGUTiisE i-,lLL CKhATfc A SCkATCH FiLc OF TriL 
i, UfjPlihSt OATA, V.HiCH 'aILL iiE USCO IK Tht 2fxD CF THE F!<oCESS KuUTINLS 



ERIC 
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L rub tiy^l 3fcCTiLrA -.ILL S-V uP fC^ 1 ;-iU i IS f Ih^ L^^i^kLCi 

CGM»"^*u^/Sy:>^c.'^/^^LtS,>»i*OC•C^•f i^\i:.\t.\.Ufc^T ,^:>rUu 
CGKr<c:i\/f- iLco/ Ui( CI, iP>^I >Tf t.%iib^^, L^UkCi:, IhbAO^lr/A l ) , 

^: Mir'tKi^ Jv.vT ( 11), :>CK !;^r.( ) 

2 .^cLcCT, AStLCf , KITl , V.fNLi\0 , , i^bT 

l-ntw^uK <^ .i H.TPLY{o3,io) , <STlL.K{ iC) , A.,b;.Lf^ ( Lu ,1 t>G) 

2 .MfAraoU) T SC£V{oC) t3A^PLu ( cC ) , r-A X{ 60 ) , >.Lh{oO)r A>S, <3P 

.'itAL * ^. A , e , c , oj;\^;:(iu) , sur^tio 

t 

c CkCa if IHiS LilSSLiS 15 PE:<>\AUti\'\ 
KcAD( [:iV:j'2) LPtR,M 

i h(LtSSG.\*b 1 •G.A.\J.LLSSJ.v.Lc*LPht?K) OC T^. 20U 
ILLrCAL, :>e CAhM cVAuej 

J = LPlRi 

CALL liKKOi< ( r KA.-.r ,0,i,l,J) 

C 

L THfc i\Uf<.::cK 13 LuZAL SCAkCH The TAPh rCF; ThL CCKRcCF .^lCCJI^J 

LALL TAPi,VC{LtSSGN,i-LAu > 
C !F .\CT riJLhC ALkEAuY AN cK.-Or> i-E^SALr SC JU:^! :^Cru.<.\ 
iF(r-LAi>*'<.- .0) /<£TUKt\ 

I. 

C kUV^ l<th*u \hC KaP Ur FHL HtAObK flit t Aj\J THc hLAOLr.b 

AcACr{ ISYS'i) PIRS 
KcAD(l3YS'4) :\6S 
uECao -■= i<uS(L£S3GN ) 

11 = PIKSCLilSSCiNi) 

12 = il + «US^L£:SSG^n - i 
IM J = 0 

» UG 4GG I = 11 , I^! 

J = J + L 

i^EACdHEiMD* I) (hcAutKCK, J) tK =1,65) 

C 

C V»L 'aILL i'\GW lNiT[ALUL VARlAdLGis f-CK ACCurVJLAri Ci\, cTc. 
C 

C iMTIiiLlZb CUcSUU?^ CuUiVieHS 
UO cCO = I, 10 
Go 600 J = i, 4b 
uC 60u I - 1,17 
5^STrGN{ I ,J,i\) = G 
too COiNTlKtJt 
O DC 700 I = I , 10 

ERJC SGN.SLd) = 0*0 
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C 

c 



c 
c 



7CD Cbi.TI.NjL 

«[.'.■( n ■- louco 

bAi-,PLL{ I) = 
.-i:/!N( [ ) = o 

K'cMt.: iht !>ju:'3i:k >^ r bTLOtNTS 

HLAJCi SYi.' L) RCSTtK 
if-(;<c5'rt ;-'JT.j J GC \C SbO 
CALL likK»-.K (PivA.'-iL tU,6 ) 

c50 CLi.-^TloiUL 

iHl< jC Lubf rc;< ALL bruut.vTS 



00 ojQC STOcivf = Ir :^l'3Tt.:-; 
OU o75 I = i,iO 
A.NSrthRd ,STuliKr} = 0 

C.UUfaH= 0 
LKl = D 

CL 0250 TcST - I » DfiCKb 
C GtT j.J.'.c oATA If- Ar^Y 

C Ir I-CIMk is Le CCUivft^v-.S KaV'c bATA 

jy-j r'GEA'rK. Lh . CJLKTK) GC TL IDUO 

L IF KGT ij£T bAf.; IF PUcsSISLb 
C rlKbT CHLCK FUk tol-, fcOOO IS HISSK-.G OmTA 

i^' (LfJbrlL . Nl. C) GL to oLUO 
C ChtCis Tht LAST KtCLKt: iNOiCArC.^ (L.-^i) lu SCt IF THfcRL- AAc 'y.Ukl 

c atCi^^uS f-uK THrs sTU0Li\r 

ir-( LKi . U'E. 0 } GC rC' eouo 

CALL TPDaTAv STCEKT , FLAG , LkI ,CauMK» K_PLY) 
L It- i-LAG = 0 THc GATA wAS OBTAIWto 

iFCFLAG . i-a: . 0 ) GJ TG lUOC 

ptUwrR •■= I 

GO TG 1500 
LOGO CL.vTlNUh 
lu LATA HAS GBTAfKbO 



r-LAG 
FLAG 
rLAC 

12L0 



1600 



1 



inG oat a 

izKD Uf- FILL 
S J SGkT f. KhG.%t IP9ATA GA V'r, chkUK 
CG r^{600G ,1400 , 1200) , FLAG 
CGNTlNUk 
KcTURsv 
GO.NTINUh 
LfsOFIL = i 
uG TG 6000 
CONTli<U£ 

HAVE SOMt DATA, GUT IS IT THE Ri\>hT DECK 
It l l^ePLYt itPGlNTRJ - H£ADER(J,r£Sr) 
KluHT SL-GM£KT , WHAT ABOUT TYPF. 
IdOO CGi'.TIfajE 

KhPLY(4,PUir«iTft} - r-.{:AOhP.(^,ThSTi 



(-ESSAGC 



JUi)T K!:TG•R^ 



) 1700 1 1600, 6000 



) 170U, 1600t oOOU 



FILMED FROM BEST AVAILABLE COPY 



K - kt:PLy(3,P.awTK) 

C 

C .fc i\C.% Zap TriKLUbh A It^T aaD GAl'i^u^N oA^jiC i r^FCKMAT 
TYPC ^ HirAJEh {<i,Tt;il ) 

i^SELlT - 0 

iNUbf- L ~ L' 

Ui^ 2b00 1 =1,1? 
:>(:RTCn{n = f.tiPLY ( i , POl iXTR ) 

3G0u OSr = 1, j^iuOST 
■^.xb = xST I- 1 ? 

r-oP ^ RfcPLY(CwOtPCIMR) 
'■sO ^ IPAS5{A^iS,RSP,^•^0PCHTC^:\;^.T) 
C CjUf'»Ji The KtSPUiiScS 

00 2iOO 1 = i, 11 

2100 COMUvUL 
C ir ^NSV.eK £S 6L ANK « DOi\ < T GRAOc ThC 4.ui:STlO:\ 

Ih{ AHS .LG • 1) vjO TU 2cuO 
C Sfcb Ir Hu i^bf A kiCHT RL:5PuNSt: 

iF( UC^ fci; .0 ) GO Tb 260o 

KSbLCT = KStLCT + i 

IF(ivL« tw* NuPCh) Rilh = klTl: + 1 
2500 CUi\TlNU£ 

SbLLCr = ScLTtCT + ( KGPCH - KCi) 

if-{l<SP.i\h« I) iVLbkO = XGOPC + 1 
2600 CuNT IiNUt 

SCklCHtQiMO) = :\u 
3uOC CUi\T INUl 

C 

C WL .\GW HAVt' A GRAOh , SC PtkFORf^ l-bKTH£i< CALCULAT IGisS 

C HERE l-.ii HAVfc ALL TKt I KFORHAT iGN KfcCfcSSARY TO CALCULATt 
C A GrUOt AAD SG Kk SHALL DO SU 

C tALh STATtrttNT 15 i-0.'. A Dli-FT ALGCRITHr^ AND Thhi<£ ALSu SHALL 
C dE CI FFcKLNT ALGCH£TH^S FLK NAVY AIMD HtV, 

GO rOi 3200,3400,3600, JfcOO, 340 0,^1200, ''-•^OC^oOC^iSOu) ,TVPL 
;.4J(j COKTINWh 
= KITL 
0 - HeAUta{12, TEST) 
OkADfc = (C / C ) * iOO.O 
isC TG 5000 
3600 CONTINUi: 

GAAOb •- 0.0 

aU 3 700 (;3T ■= 1 , NUQST 
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36 -i 0 



JOOKi 



J b \/ 

370C 



320 C 
4oCC 



C WOwGcT 



3200 



kSP Kr:PLV(OAb,PUii\TK) 
1 1- (K iP^j^b. 3 J Gb T u 3040 

Gu r.. ^700 

Ir (KSP.iVL* 3) be FO JooO 
oKaOl = GKAbL + o»0 
Gu Tb 370o 

^P{^'iP•^fc;•':^) Owj 

GKAUc = Gkagl + 



C*0 



.7G0 



lOG 



MAX( PcS D 



CuNT iiNDfc 
H - SSLCCr 

H = HEAObK{ U ,TfcST) - 
X =■■ G * { h / } 
G.HAUC = ( C. - X \ / ^ 
GO rij ?iOOO 

IKUt 
CGNT [NOL 
COM li\UL- 
CoKT I'XUf. 

GK AO h = 0 

ir-dATK -GI- MAXd'cST) 
IFdKTIl ,LT. HIN(reST) 
SAf'IPLiKTtST) = SAMPLLd'ESD + i 
SU.M( TlST ) ■= bUh( K-ST) + GRADE 
SUKSQ( TbST) ^ SUMS.j( TEST) + ( GkADE * 
A,\S.-;t:K(rt:SI»S]uLwT) = [NTR 
SCRrCHdiJ = IklR 

IkcC = (l STChKr - IJ * UECKb) + TEST 

v-:HlTt(iSCRCKdi<r-C) SClUCh 

COUKTS AND AVGS HsR OSTlCiN VALiDiTY 

00 ':)300 QST = i, NGQST 

G.\0 = UST + 17 

1F{ SCRTCKCQH'.jKLe.OGQ TO bZOO 
CSTfLn!(l2,gST,TfcST) = OST iOK ( 12 ,OST, TEST J 
QSTlGN(i^,GST,Tt.ST) = yST IGN ( 14 ,yST , T&S f J 

GO TG ^bOO 
CONTINUif 

'S THt WRUNG GROUP 
\.STlu^^{i3ywST, TEST) = 
Ci.nL«(l3,UST»ThST) = 

Co^Tl^uf. 

r-G ItNJTR = PDli\Tft + 1 

iF{Tt:sT.(\e.i:>hCKS) go tu tzbc 

iF(PClWTR,GT.GUUNTi<) GO TO 62b0 
UU :?750 li = PurNTK,CuUf'.TR 
( - Rc:PLY(l,f!) 
J REPLY{2,,X) 

f =^ -Ri.P.L,Y, (J.,..¥J 



GRAOC- ) 



QSTI0N(13,QST,TEST) 
GSTrOfv<l!j,CST»T£,ST ) 



+ 
+ 



1 



l^•Ti1 
1 
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L ^ rbPLY(/^,^) 

CALL LKr^o5< IP.NAF.£,U,5),1 ,J ,i<.,L) 

GO fu t)250 



00 J^* 



f J 0 0 



uL*vT iNui: 

{ J-(:4*L"h»l;) ou Tu 7^3uJ 
t.^ ^ M / W 

.':t.ph{ rtsn - tKLUi\i;(o) 

l>^(K*Gr*i] Cu T(; 700U 

SuEViTLSr) = G 



C C'XLCULAIc iT/iKOrRD LL-ViAriL.\i 
A A 

i\ bUMS(v{ Tt-ST) 
I C - / S 



7-^00 



cOOO 



r 
\^ 

c> 

Sb 

sci:v( T£.sr) 
Gf TO 6 00 a 

COivT I MjE 
Suf:v(TcSr ) 
.'<I\(TLST} 



-^99 



// AScG.s SYSSLb,X' 15.L« 



I PASS 


SVARf 














■4 


STUD.NT 


(fC:U 


6 


tivTC-K 


L 


■i,0(0,i) 




LH 


•J, 010, 3) 




!_ 


3,''<(0, I) 




LH 


7,0(0, 3» 




NK 


t5,7 




L 


11,12(0,1) 




USi.\G 


CkTAR, 11 






6LANK,X»00» 






dLA.''iK + l(21) ,bLAWK 




SK 


0,0 




SK 


3 




SLL 


5,21 




SLL 


7,21 



isr pArt IS cuKtcr ans 

PLACE CUftECT ANS GPK5 

2J\iO PAK IS STUOF.K'r»S «hSf-UNSir 

PLACE iTUOCi'Ml' Ai\S IN <,Pk/ 

CHECK CQRReCT 31 IS 

LoAO GPftli WlfH AuOR Uf COUt\rS 

CGUi^ifS A;^E 4rH PAPvAHhTui^ 

TIILL ASSilMBLtK 

CLEAR COUNT AREA 

CLcAR CPKC FOl< TOTAL Cui^KECT 

CLLAR GPH3 FOR TOTAL 

LEPr SHIPT Tu ShT UP FuK COUcn S 

XHJ.S. ..L.DCP LUiJhS. -LltlL .C-L.uk LLiViG 
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A1..S ill SvUACt ^iTATtiXui^T L1S11<\C 









;:>L.T UP S-LK Thb LobP . 




Im 


LO, ,G) 


ln{:i (S uU^. 1nD£X Gf^R 




L 




1 r, I o i b T h t 1 1\ OK fc: L h T 




L 




This lb 'fht Cur-HAiNA^.U 


1 Ail i ) 


:>K 


i>TU jr. i't c;TUi>\T 






^LbL 


tbf<cC It I 


PLACt A blT ir. iht GUI 






o rUOK I t L 








0 y CGKhL 1 


COUNT THL CukRLCl ulfS 






> f STbuul 










CuUK'f rhC t^f'^PLKc)C- 




An 




^ L»\iS»^ LJUF 




















L 
















L 




OirF A0.\ CP jKu PAKAhhTLK 




STH 


3 , 0 { 0 , A > 






HtiHl: 






Ci'i FAK 


DSKCT 










iH 








IGri 





cXtc f-f j:;5kai\ 



bOoKt.Ul rp:i: TAPbVC(Lh:SSOW,FLAG J 



r-bK 



I, 1H& RfcQueSTcD LifSSC^» Ih F!JU!^{Dt f LAb KILL ol. XfclUni^cU Ac vJ 

C OTheKWlOfc A i WILL iiN-LiICATC THAI iNO LATA v^AS l-OUfvJu FCk FHfc LT.SSCjN, 

C A 2 l-sILL INGlC«Te AN UNSuRTtU TAPii: 

CU{«(MGW/I-IL=S/1h(3), irAPttl'AU 11) 

INTLGtK ti^jFlL, kOFLAG , WCGUM, FLaGt CUUM , STUUNr 
UvTL-Gl:.^ * 2 SLkT(41, !<i.PUi\'l>( 6b ) , Rr PL Y ( t.5 , 10 ) 
IKTubcrc Pi\AKt{2) 
LATA FTiAME/'PROCS 'cSS'/ 
C CPtK THt r-ILE ANU INlIlALUt 
rttWlisO ITAPL- 
tfvDFIL = U 
i3u 100 £ = ItA 
SORT(i) = 0 
C0M1KU& 
THL RDFLAG 10 OFF 
RDFLAG = 0 
(<CGUi\T = 0 
LtSi> - LtSSO'"' 
«C5ftIK0 IlAPk 

kcAD( I rAPl:,f:i\0=lOOO> KSPCNS 
RCOUM = KCGUNT + 1 



100 



500 



) 800 ,700, faOO 



ERJC 



BEGIN TO ChirCK FOK SORT ERKCR 

UU 7CU 1=1,4 

IF(5bRT{I) - RSPONSil) 
aOO CGNriNUt 
n-ili) iS A SUKl EKROR 

J SOf!T( I ) 

K - RSP(jNS( I ) 

CALL cf<KoK{P,\AM&,0,2,FX0UNT, l,J,K) 
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ERIC 



/Ou CuM[i>JUC 
U ns-Rfc t-L HAVl- 2 lJ£.\'TiCAL Httu.vl/C) , Tr.lj lo a riALJ.,fcbb 
I - l\5P^.^S(^) 
J - KSS?(.u\'o { j ) 
K ■- KbPu MS {•'•») 

CALL tf^Rui< {pS'Ar.iljO, 3,ALLL.\'1 ,1 ,J,KJ 
l=LAb = ^ 

600 couriNut 

C i\U iiCKT tKKbk SAVi.' SOhl PAKAKiITtKb 
Co 90u J = IjM 
SOKT(J) = i<Sp"JNS{J) 
900 CGMItvUe 
C KG/. CHECK Tl-c LLSbOiv 

IF(Ko,30KS( 1) - LESSON) vCLf'^SOrlOOK. 
C IHIb IS )ha ^.IGH7 LhSSUN \ 

CCMLNUt 
C dUr Hi A HhADtH SKi!^ IT 

ir(USP0i\i{2) .bC.G) Co Tu bCU 
C Wt'Kc Ht.lfc i.U CAa' ;<LrukK 
FLAG 0 
Re TURN 

C THfc LESSOR ISfV'T U'i THIS TAPl: 
iOtiO CO^TIiv'UL 

LMjFIL = L 
REWIND iTAPE 
l~ LhSSUN 
J = SUKl ( .1 ) 

CALL tKi-iCiKt t'NAMlT ,0,^, i ,J ) 
FLAG - I 

C THIS frMllY iCAKCHlIb rJR A GIVLiN STUDfcfsf'S DATA 

C Ih KUNL IS htl-UivsO FL/Ac- WILL KLTUkK A I, LK b.^G 0.'- FILL ( THAT IS Frtf. 
C FiKbT Call 'aITH .\C data RerUKWtU flag kill K£TUR{v a 2 

c 

ciXrKY TPD;jTA( STUO.\'T,J-LAG,LCI ,CGOf\T ffttPLY) 
C 5bT CGU.\T ro 0 , I. t. ING OATA 
CuLWT = 0 
Lol = 0 
FLAo = C 

iF(ENUFiL-Nh.'J) GO TO 9CCC 
I II t kf. CAN HEAD SHOULD Wl 
! if 2000 CiJkTlNUE 

IFi kOFLAG.tU.O) GO TO .5000 
RfcAOl nAPl£,bKL'=8000J ASPCfvS 
IF(RSPONS(l).Ni:-LLSS) Gl IO 8000 
KC '.UfvT -- RCbUi^T + i 
C rt&'Vt RiiAu A RLCuRU CHECK TKfc SGRT 
DC- 2-iOO I = L,'i 

iF(SGRT(U - KSPGMSm ) 2.300 , 2^00, 2iU0 
2 ICQ CGNTlNUt 
C SGkT ERkOR 

J •■= soHr{ n 

K KSPtJNS(I) 

Q CALL ERRGH{PKA.Me,0,2,RCLibNr, I,J,K) 

FL-'^G = 3 
l-:{:TUi<K' 

22G0 L f.;N:I"I-(N'.UL -. . - - . . - :- 
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J = .-'bPu-ks, ( 5 ) 

CmLL ck.^c.:- { pinAHLtO, J, t<tLLi\l , I , J ,N ) 
l"LAo •= J 
KbTU.^N 
C liJKT is C.K. 

CLivri.\ul; 

/'hOu J = 1 , 4 
h^'.Nl {J ) = RiPOiiSU ) 

C hcxi; Ki-.'Vs; b».T LATA, i tU" .'i !>LADIi\t-, U:\ LAST ll.-^t 

txOFLAu = L 

IK f.SPljivS(^) - ^lUl-WT) i>GO, 40GO, 3:30^. 
C ht .-.'Jbl .^^{f', d'JT .NuTl" 1 ric r-ACV 

K = hSK0(vS{4J 
L= rlbPuK'Sd) 

LALl. LKRL'K {P.\Mi<fc ,C,5,L,I ,JtK) 
bO lb 2U'J<j 
C Ml ^GWr OAT A r-GK STUOhM 

Kb!-" Lag = 0 
LC-I =- i 

C y,AS rht.ic A,\Y DATA ucFORE. 

lf-(CdUKf .N£.0) RETUKK 
C i-iO SJUDtNT HAU ivO DATA 

I-LaG = i 

L This JAVA bLLUiVbS Tu fHlS STUOEaI" 
C bUT IS THIS THE i I f H f^ECUHL) 

J F (bCUi'Ml .LT. i'O) bO Tu -^500 

C Yf.S 

LLI = 0 
RDf-LAG = U 

C .\C, SU PL ACL DATA {i\ A(vS 

'•»3oo cou.u coui^n <• l 

iJQ 5 GOO I ^ i, 05 

Ri:PLY{ I,CCUM ) = t^SPONSd) 

tjoob co.NT it\-ue. 

C A.^ij GO KEAD AGAiW 
GO TO /fOOO 
C THki<fc iS ivU MOlsi^ DATA 
3000 CUNriNUE 

£NCr- IL = I 

ir-(cuuKT.hG.o) ro 9000 

LCI = I 
ULl^lUO I TAPE 
RfcrURN 

C Ufc ttlLL NOT KEAO AGAIN 
9000 COi\riiiUL: 
LCI = 1 
FLAG ' 2 
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ERIC 



/* 

AS C A f .yS C i , A liN Si'' kl2 

// c XLC FFGi^ f r Ai\ 

SUc5i<!-UT Ii\r. PRL.C2 ( L IlioON , Li.lKo T .-..vbmF-^ » i>l-CL:(\U » -.jT {s>K , 
2 ^iA«PLt; , SutV, .>'.LA/< , i^.TN, i'AX ) 

Rfc^iL - o :5'J(-U«ei^) , SUMiO(^:0) , .'A , i , C 

iMEoiiK ^- 2 Ai\SVicf;( ICt 1-30) , SkLb.yOt iO, l30 J r «;oT luis( ici,'tfj, LO ) 
/. 1 SArtl-LlitoO) , SLtV{i-0) , ."'bAi\{6-J) , Min(oU) 7 t^'<AX(cJ) 

ItviTfctJtt^. * Z ^scCLmibb) , TAbLcC .2, 10) ,PT.-.:>(5C;) , iub.NTC^) 
cu MMUK/ S Y ^ T lM / 1\ H; S i , Ni^ £ C K , !\ '< t X , n .V b c 5 r , Ki; T U C 

CL(\f.GK/f-iL£S/ iKI(4), ISCHcn , lhLAi>, lv,'2 , K'UfcST , 

iNTkGtP. * ^ LAP IN t KbSTEF. 

L <;UI V AL civC c I oAi' l^ , r<tc.u^ u { 2r> ) ) 

IK7tGc.;< GEckS , SrUk-NT t TtST , CSV »aVG , >vVG2 

C f-lKbT OUILi; A TAbLc (i-KGH 7Ht hkADbR rILc)iu CtiXKljc Tnf. 
C ::Ui:;bTlCN HLfc 
C 

LU 2 50 I - i,20 
SUKd) = 0.0 
SUMS (.(I) ~ 0.0 
2^0 COWTiNUfc 

l<£AU([SYc«3) l-TKS 

J = PTftS{LL-SSOK) 

OC 500 I = \ , DfcCKS 

kE:Ati( IK1£AC' J) RECUrvO 

I AiiLi.( i , I ) = KtCuRiJlij) 

TAbLt(2, I ) - HhCOKu){ 13) 

J = J +• 1 

C i^liNL THt NUMbtk 01- STUDbMS 

M^AutlSYS'i) KOSTEk 
L TUC PASSI:S rtILL cfc (\'£ClSSAKY To CbTAiN' ALL GKaGES AS THr; uA,^ i" 
C iJSfcS MCA.\S i-HO.M Th£ P.<t:VlOUS PAob 
0 

C IN PASS I Wh WILL i) CLLLECr 1 i\FoR.S«T lO.N' u>\ THt CAt-A^olLrTY IivOfttS 
C FROM iHt DISK 

C 2) FfcRFGRiM CiJbiNTS PuR Hi AND LC bi<OL!Pb FfjK WOLSllU.x 

C CbUNrtRS ( AlSG FKoM UISK ) 

L 3) CALCULATt THE CGKBINbD StCOiNOARY bKAOLG, 

C PEXHLHKAKCfc liVuEX Ai\D i>iC-T ACHLI ^^tHLiNT IWOEX 

C PASS 1 

DO 3000 brOhivT •- 1 , KOSTLl'c 
C S^IkST GeT THt CAPASiLlTY INl/fcX 

DC 750 I ' i,lO 

SfcC0ND(i,S7UkKV) = 0 
7 5 'J COiNriiNUE 

KfcADi ISTUriT'STOEM) KfcCbRO 

SEtOi\D( itSTOEND = CAPI« 

iFlOAPIN.EC,-S^99) GO TO LOuO 

SAMPLfcdl) •= SAHPLhdll + I 

SUM(ll) = SUM(ll) * CAPIN 

SUHS.j{li) = SUNSglii) s- (CAPIK * CAPIK ) 

IFtCAPIN.GT.KAXl ID ) MAX{Ll) = LAPIN 

.tF{CAPlN.LT..MIi\(li) J M1K(IU = CAPIt^i 
C hCv. CALtULATt THE CCJ^-SIfvED GKAUES 
C i-lkSr IS NET ACHcrVLt^ifci.il IN'CLX 
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ERIC 



AI.'S ril oCjKCt STArKKusT L.li.Ti.\C 
itLG.\Cl 3 » :> TOh.< f J - -'^'i'l 

liKADt = (A + A.,SV..-.i? (2,Sr!,Li\r ) ) / i.o 
•iLCLiivO(2 tSTnfcivI ) = fi\U.i< 

5U.-.bv(L2) = bJ.'.St;{i2) r (GKACt * likAoi:) 
I,\TbK.Ll .M/.( 12) ) .■'.If.tU) = IKTcK 
livTb^. jT..-AX{l2n KiAX(U) = tiMl cK 
t CALCllL.*Vr. AdSuLUT ACHtl i VtHEivT L L V f A"I i Ci\ 

icCUi\0{3,;>TD£:i>jT) = 

uKAUfc = OKAGc - CAP IK 
l.\n-.K = ii<uU.-.J(GKAUc ) 
ir.C0Nu{3,STDfci>iTJ = l^Tt'A 
SAi^PLtds) - SA«PLh(i3) Jl 
SU/.dj) = biJhllZi -t GRAbE 
oU.^,SO(Li) = SU.^oCilj) + (OkaCE * GkAGc) 
U-( IaTB.h.L I l\"(.L3 ) J ^5I^•(iJ} = IK'TCR 
lf-( INTER. oT.iV.aX( 13) ) hAXdJ) = livTc^s 
it>l/0 C-JiXriNUt 
C KuW CALCULATf: Pl-.Ki^GRMANCb li\D£X 

lh{ A.\SwER{ J,iTL'£^T).^it.-*59^.^^UD.A^S•AtK(4,bTu^:!■<^).l\t.--j'■;-J)uUlc 170,1 

Sfccai\o(5tSTnt.vn = -999 

,ibCD.\U(6t o TDbl^iD = -999 
GO Tl; 200u 
l/OC CUMlKUi: 

A = ANSwt<< (JjSTLfcNT) 

uKAUt =({3.U * A) ^•- A'CWtf. (^riSTDthD ) / -^.0 
IKFirK = IROUivDIGRAGt) 
5tCG.\Li(5,S10£:WTi ) = I.\T£S^ 
SAf-.PLEI i;3) = SAf-iPLfcl 15) + i 
o)Uy.{lb) = SUiS(15) 4- GRAOe 
SUKSy{i5) ^ SUHS0(15) + (GRADE * UKAut) 
ir{ LNFFk.L r.MMlS) ) iMlN(15) = INTtK 
IF(iMeK.0T-,/'.AX{ 15) ) KAX{15) = IKTEA 
C :VU'/. CALCULAIU AtiSCLUTt PE^FOKiMANCh DfcVIATiOK 
lF{CAPIi\,Kfc.-999) CG m 1900 
ShCGi\C{6,STUt:\'T) = -999 
GO TO 2000 
1900 CU^cTlNU£ 

bRAOE = GKAOE - CAPIix; 
INTCR iKOUiVOIGRAUE ) 
i.fcC0i\U{6,S10£<\T ) = INTER 
jAMPLEdo) = SAf-;PL£{16) + 1 
SU.M{16) •= iUiM(i6) + GRADE 
SUMSC'db) = SUMSQ(16J + (GKAOE * GRACE) 
IF(iMEft.LT.MIN( 16 ) ) MINI 16) = IMEK 
IF! I(S'rE«.GT.«AX(16) ) MAXdo) = IWTfch 
20G0 CGNTlKUc 

G NO/. ist'LL 2AP THRJUGH THE PaIMAKY GRADES IF THE STUDENT'S SCuRi: 
G .IS ASgVc u,> - Tu Tht i-'itii-i , '^E'LL CCUi\l HlK If. THE liCHI hkijUh 
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2<..0U TLST = I y l-ilCKS 
lrlM:>iS-M-l<( IcST,i,TJciSl ULr. LM.Ndrci") ) lU <i«.G.. 

I^.:L = ((.'.ICLi.f - 11 * ULCnS) *• fcST 

= TA-3lc ( fto I ) 
^'jQU ..AU = l,i\'UK 
CST = C'>.J + 17 

^i5C CG.^Tli\"ji: 

uSTib.\'(i?,vvi-.L',rbbr ) = sjbriuia 17, t.v.\o, 1 coT ) + i 

^j:>C. COiMifvUt 

:.OU0 CCMIi>!UL 
C \Cir. P.-.f.i^ArUKY ru PAS^ 2 ^L-'LI. umLCUlAIi; fhL rluAA i.r THt 
C AoSLLUTfc- ACHfclVci-^uKT OtV I AT l/„:\ 

II" (SAi'-.PLcdJ) .GT.O) G J TL -'tGOu 
C ..C iJvi i-iA:^ Atiii As-HV ^eV 

);{. joOv I - ItivCSTc-i". 

3>0vJ COiSTIKUc 
C .\C»-. GC ON TC hfcL CHi:f DfV 

CuKllK'UL- 

AVG = iKuUr'Ju(GRACfc) 
C kCW CALCULAFc KtLA71Vt: /,CHIcVhfM..Nl utVlATIUA'S 
DO joOO brOtivT - L,K'}STt:.\ 
l»"(SrCOt^it3(3,S■fCfc^^) .,'.l::.-9^y) uO 1L ^iCO 

ro rc 'jooo 

A5G0 CD;\T^.^<UL 

GR.iDfc = S(rCo{vu(3,ST0EWT} - «Vv. 
livTtk = IRoUhOCGRAub) 

SA(«.PLl{ l-'i) = SAHPLfc(l4) + i 

S0^i(1.4) = SUM (14 ) + OKADE 

3U.MbC{l4) = bUMS(.}(l4) + (GKAOL GXAGb) 

i/NiTliR.LT./'.lfs'{i4) } i^l\'(14) = INVEK 
IF( li«Tf:K.CT-hAX( 14 ) ) HAX(i4) = INThK 
5UUC CUNTl.Nufc 
C ClQ'ji ,MtAN OF THt AiiSULUTk PeiU-UKiXAK'C£ GfcVtATiUN 
r.100 CoNTiNUt 

fF(SAMPLLUb) .cT.O) GC TC 60CC 
C ivC A6S PERF DcVS 

BO 5500 J = l,i<uSTtR 
SeCuND(7,I] = -838 
•j-jxjO CONriNUG 

6U ro 7100 

oouo cuNTirx'ue 

wHAOE = SU«(i6) / SAMPLE (16) 
AVG = IROUND(GkAU£) 
C NClv CALCULATH KtLATIVE PhKrORMAN'Ct: UEVIATIOh 
00 700U STDEKT = i,RObTfcR 
IF(Si:CUi^iD(6, STChN'T) -9f^V) GO TO oiCU 
otCuND( 7»STGLK-T) = -999 
id 700^ 
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wA/iuL - Si:CUi<J(b tS Ibt.xr ) - AVI. 
I h f I !■ = I ftuUiib ( oKAUt" ) 
ShLo.\b{?,S7lJtM) = I.vTcIv 
jA.MPLh(i7) - oAMWLL(i?) + i 

iU.'iJd'M = ioMbwd? ) + (ljiN>^uL - C...rtJt 1 
If ( li.VcK.Lr./.i.'.l 17) 1 :-:lu(i7) ~- (tvlt.^ 
ir-{ IMeh.oI .^AX{ I 7) ) y.,-X{L7) = I.^^fcK 
70ci^ C jM lisOt. 
L ,\Cr. CALCLLTL //cA.Ni, STcS uLVit i.T'^^ 
7luG tcAriNUb 

i/b 'iuOC i LiT ~ ii , 17 
H = oA -.Mul lixST) 
1^(^.L1••.0) Cu Vi; 7jOO 
A = i)vJ"i( r _oT ) 
U - A/,\ 

IltiN.uT-i) 10 7iCu 

SCtV(rcof) - -J 
GU TU faoOO 
73;. 0 UowrJI'iUL 
I. = A * A 

c - .\ * ( rtsi ) 

G = IV * Cis-U 

= { C -b ) / i 

= SukKSS) 
bOhVCrcST) = Ir"<LUi>Ju( iO) 
OlJ TL 3000 
7L>0U CUNTlNCfc 

"Itn?., ( TcST > = - i9Sr 
i>UhV(TLST) = 

C r.fc KILL NCK PLACii The CUfcSTfOfv CCbMcRS OlSK 

UO lOOCU fL-ST = i, UtCKS 

NljiM = TABLt{2,1uST} 

iN'K = lA3Lb( L,TbSr) 

uO iOOCO OST ij MJf''. 

IHLC = OST + IWK - 1 
C kfcAO A (^UirbTlOK RECORD 

RcADdwUeST' IREC J KfcCOKC 

DO 6500 I = L,1.L 

J = I + 29 

RhCukl)(J> = GSTIciNil l.uSTjTtif) 
8300 COMlNUb 

DO 8600 i = 2^,25 
J = 1 - 12 

r = uSTiOi\*{ j+^:tOsr, itisT) 

IF(T.OT.0,y9) GG TO 8o00 
KtCOKOdJ = -v-^S 
GO TO 8800 
SeOO CGhTlNUG 

GRAOf: ^ '3SriUN(J,USr,TiLi,r) / T 
KGCOkCil) = IHOUM0(Gf<ADh) 

0^ 9000 I = 14,17 
J ^ 1 ^ i2 



FILMED FROM BEST AVAILABLE COPY 



•.If : III ..^ or^t lUllra 
{*:IL»< = ^,cC-^y{*.cl h LC-.A^ ( 7) 

:> = /vr.COKU(/:.C) 

[i oKAUE ^ ( (S / L>;TnPJ < luw.l, ) 

Sf^Ci: ConTltvUL 

VjiJj L wMl iVUl- 
lK KiCt Ku(^4 ) •Lc.-VVSr«ai\.i<i:CLM.{ it> ) • Lv." ^90 ) To 9h0^ 

I L ^ KtLu-^uC-^o) / T 

A iJ KU ( ^ 2 ) -= 1 KG »Jk J ( CK A I; !: J 

rc 95 

i^LCGKD{;i2) -9<r^ 

i:i;tUi<Li(23) ^ SUbVCTtST) 
>.F: irirl iv^UuSrMKEC) KbLOKU 

C Gtr IHb CtJKSfc 

lOeM (2) -= - ^ 

lOEKTC^) =^ G 
I « i:jiEM(4) = u 

1 C fvJH HLACt bi<AL£b U;^ UlSK 

NJiMh = NSrUC i b 
III iKhL = {{ LLSbCiv - 1} V iVUK6 ] *- i 

' » C ViKHb i>A(^iPLL SIZL 

-.kirC{ IStGRr:MRLC) iD&in , SAf-.pLL: 

lO£:i\Tl2)= -J 
iKLL = £.<i:C *• I 

C .'^RlTi- MfK 

iKfct ^ IkLC -^^ i 

ioeNr(2] = 

IKcu = IkCC + i 

ER|C c rf.MJt sjiiv 



FILMED FROM BEST AVAILABLE COPY 



/a.*.J> Jit STMr&»>t.\'T LT.)Tl..i, 

IrvtC - ifiX + I 
..un ,>/iri; fHfc 1.,!jIVIjUAL IjCCKtS .ii-w .-.rluv..\ 

iKirC = irtcX ^ 1 
(i>tCGi\u{j,5lt;!:\T), J = 

.U.lU.<N 

c\u 

FUi\Cl lois i ;"<uL-vu ( 1: ) 
Itl .'^) i^u TJ looC 

!j!Lu\L = c i- { !_ / Pt-iCf. ) ) J 

Iv)u0 L--!.rii\ot 

/* 

P Hm ^ c A I X SL 1 i>T , I h S h I. Ab 
// uXtC M=tJkTi.Aiv 

iUiKt UTI-m: RLl3r(L£SSuN) 
C T>;13 .;CUIl:.'t PR^VlDeb Trie l>Sciv :, I Tr: Th& FACaiTY To ..ISf Alr^ jAi «. 
u T;jPc. IT b3»-S TAP3VC iC P;<CVliJ£ iHt TAPc HAfxDLIfsG «.\L LjTCDc 

C 

Cof^^iO.N/ F [ L t S / { I. { 2 } , J C t T , I Kil S P a M , I r:C AiJ , I h^M ^ ) , i o ru. : r , I .i J { 2 ) , 

[.\rbL£f: L.'.A»^.£(^),UAri:S(6) 
IMilbtK V. PLiiSS , riSTUC 

l.MCoirk * «d CATA{65,.10) , :\GSlDO}, i^TKi>{t>0) 
DATA L."eA--^lh/' LISTS' '/ 

IrtrtGctl Sur^CilZ,^) » SLl^fci2,iO) ♦OtCK , S>L-^f^K , ANo (2,40 , iO ) 
uATA SOKOl/'Sli>i&»,*Lfc» ,'CuUi3» ,'Lfc»/, cLAUK/' '/ 
IKTcGcK FLAL, ,STO£i\T , CCUM , SLm^H , CUT 
DATA SLASh/*/'/ , COT/'.'/ 
iP/TsiCtK * ?. -^ikSlbl^) , iNAi-'.Edj) 
C CHECK THE LtSSON ivUi^ScK 

5<cAJ{lSYS'?.i PLESS 

IF(LtSSO:v.GT.O-A!vU.LtSSUh-LE.PL=:>S} GO TJ 2i0 

I = LESSOR 
J = HLcSS 

CALL &RKUK{L!VA/^h,0,i,I,J} 
P.tTURN 
250 CONTINUE 

P.tAudSYS' 3] J'TRS 

II = PTRS{Lui3GN) 

12 = i\uS{LtSSQN) + li - I 
f.'UHhAO = .\GS{LtSSQK) 
J = 0 

DO 5C0 I = 11,12 
J = J + i 

r;6A0( IhcAD' { ) (DATACK, J > ,K=l,65t 

'JOG co^T^^ul: 

C K-l:»Vc RLAU 1Kb riEAUti-.S fv'Oh PKiNT Thfcr' 

ERIC ^.^'^'-^'^ = ^ 

X>jAi r-t / - - - 



FILMED FROM BEST AVAILABLE COPY 



:>ul 



}00 



iuOO 



/ 



i ^ L, 
iuAl^A L, 1 ) 



It 
it 
ly 
It 



i= I ti^Ch! 



ERIC 



c:x, 2a4 , ix , 2i\H 

bi' Iht WruLL ThllxG 

*.f;nc (icurj-^tj) ( it 

^ITt ( iLUi t dS) 

L . bOu I •= i T 
r. -= CATAdOt 1) 
u-^ oCu J I t 
oLi:in{JT I ) 

A-, i T c ( iCUT , V 7 ) { { SL I ( J , I ) , J 
V.iMlr.C I.lTtVvj ItATACii,! )tl 
•>.Rirc{ il.UT tli^ ) {.0AT.t(12tI) t 
V,P (It ( !ouI ti^*:^) (OaU{ L3,i}t 

90u ^kCA. - i t ii-GhcAu 
s^b-i = OAi AditUfcbKJ 

J J = .>il\ T 1/ 

Call LbTCJiCuAlMi JJtu;ioi\) tMN^f i yi\i<Ti-»irbK) 

Cli c'l^U = .'voUt^S 
.^5^ ct>C I ^ it^ 
A»\:i { I jihU 7 utCK ) = oLAivK 

DC LOGO Ki* = i 
IF { u.x*;\t:* I ) u J 

TU iObO 
CUuT InUL 
c>RITr:{ ioUVticv) 

LISI The lArt 

u;*.' L bHoYo{«LtAU« , ' AHcv^'TAPb^ ] 
CALL TAl>SVC(LbbSOj<,rLAb) 
ir(FLAO*bL;.o) ou fU 1200 
LALL b^^^^Lri^L.^A^;ctOt2) 

kE/;u( [SYli» I) wSTUO 

£RlX ^ »\uHLAU 

CO SjOu STOuNi ^ I, NSTUO 

.xC = 0 

CALl TFGMTAiSrOtMt FLAG,Lk1 tCCUM^OAlM) 
ih{PLAo*fcU.O) TO 2000 
.lr{ FLAG-LO.i) GL TO ^OOC 
IF(S-LAu-cU*2) iO TU <iOCC 

V.ALL tRKui:{L»^A»yctO,2) 
•-.^ I*. 90. J V. 



Tl 930 



( ItiNNt J)tI = It2 )t itKCrifcAO) 



( (AivS{i,isN,J]t5 = it2 )t it norilAOJ 



i2o0 



TAFl 



FILMED FROM BEST AVAILABLE COPY 



1 



erJc 



J70O 
y 5300 

450C 



4o50 
r)(jOC 

90 J I 



tCfS I i not 
i-.C - .Nu r j. 

CALL if.r". it^) 

{1 =( (J.:. i) - 10} r I 



} 



K i. f c { i o »J T J 9 i 

>.:<lTh ( (iJJTv 
y HI Tc { iCoT^ 
-.HlTcCiGjTjtGi} 

Z60G I :r 1 , 

i.L 2bOC J - ii, 
iJ/^FAC i ) = - vVS 

l)u 4GC0 .viJK = i 



(UA r.At 3, I ) , 

(t/ATA{3Tii t 
(-jATa(o,1) , 

(LATAC iZj 

17 

C) Gb fC 2dCC 



I 

L 

1 

L 



— L 1 C>\^\ji\i 1 



jAIA( 14, i ) t bLAo*-:, CaI A{ J) , blA^n 

JATA(Lt,ii , uGT , OAlA{h?fI), i = itCCo\ 
CCui\-T 



f } 



.\0i^ = i'^t * uAIA{6,NDK) 

3t>00 A> = 1 9 NOW 
J J = N.\ ^ I? 

Call LofcottCAiAC jj,:sCk },ANS{i»*..^,a\i:K ) ) 

CCNT LSUt 

If {i'a:w*Cu*43} Gi. To 45G0 

j?CU 1 =1,2 
Ai\:>{ I,^^^^t^■i3K } ^ aLA^K 
COi\T[NU^ 
Cuf. T If^Uc 

CotMi.NUL 
OL SOOO N!\^ 



= 1 



48 



{ A.;S( Itu.N, J) , I =1,2)t J = itCOU^vT J 



{F(NK*i\h*l) Go TO 48^50 
rtKlTL( [uoT, , { 

IC -iOwO 

V<M ri.{lGUT.l69) NK, ( ( A.^iS( i ,a,N, J ) ,1 =1,2), 

Cr>M {:\ui: 

IF(LkU tiw. OJ Gli rO iSGo 
COM' [NUc 

IPaOt = IPAGc 4- 1 
CALL iKFiJlCAUS) 
W.^lTc(lbUr,b*;i) iWiTfco, IPAoL 



FILMED FROM BEST AVAILABLE COPY 



^^jKMA^( i f., 

Ob rUPf;AT{ La, 
rCRi'./'K LX, 

'U I- uK MAT { .IX, 

-'Z rUKMATdX, 

•5o F JkMATCIa, 

97 ! G!<f/.AT{ iXt 

-:••! hOK;>1/^T( iX, 

'•f'} Mj..MAT(LX, 

10? l-CR!-r(LX, 

L19 f-OKf-.Al {iX, 

12'-' r-JKf-AT{iX, 

US I ui^"'.Ar{iXt 

14^ l--.:i>'':AT( lA, 

lo'i H'oK>S,;T( IX, 

o9 f-jf..MAr (iA, 



rcCliHv) hUKiiilK' , UX, 1C( 3X, i2,4X} ) 
LQCK iNJi"-'6i:R*,l'^X,iJ(3X,i.i,AA) ) 
Li.SSGi\' , l^X, iv.{ iX, IC'jX) ) 



ihoMtiXT' , 1;jX, lO(BA,l<i,'tX) } 

c^.ukii» , i9x, iCi3x, r^:,^xi ) 



1 j-M-i, .cX, l.i) 



ilAoLf- OP .OUlicLi: • , -^X, iO( iX, JAA} ) 
L6fc.\Tir-lC.^nC!\ KUf'.oLh' ,'^tX,10{2Xr3A2y LX) ) 
^-.u. GF .'icLtCl IbriS* ,fcA,iO{4X,l 3,AX) ) 
AiJ, Of- v»Ui£ST{;:NS A.\bv;cRb^« ,iGl 3X, IZ,4X) ) 
iVb- CF wUCSTlGNi, LKACfcC',2X,lG(3X,U,HX) ) 
.NC. ah C'L'ESriufvS' ,SX, iC(3XT r7.,'iX) } 
CAl;! .'W/u3/YY',.l2X,.LC(lX,i;',,Ai,I2,Ai,I^) ) 
Uhl hn.FX' , it;X, 1(.{2X, IZ) ) 



i.Ul:^T lOsV .VU.'i::,hK« , i3 , ICX , iO( IX , 2A4 ) 
5X, 13,ICX, lc{IX,ZA4) ) 



/* 
// 
// 
/C 
// 
// 
// 
// 
// 

// 
C 

c 

c 
c 
c 
c 



L^LTYP .-xioGlb) 
..XilC L.v'KtJ"i 

/-i:sb!v o YSLKK , X • 192 • 

:jL IJ S Y S L!\ , » S Y SL f\K » , o/ ^ o3 , S C 
CXTIt.41 bySLNK,CeiOCC2,i,0,.lC, LOGO 
«-Pl iLiN CAFAL 
J-riiiiC KtPrA^^'.5,i^0GT 
i. XcC ?rLKTf\AiN 

xxxxxxxxxa .'j-jipur 



h£LL 
rILfc 
FiLir 
r- ILir 
FiLu 
FiLL 
riLC 
FlLfc 
UfcFlfvt 
CfcFii\fc 
GtFi.-.!C 
OEFiKE 
UcF f.vt 
L'iiFINS 
utFfNe 



'3 - 

i2 - 

7 - 
3 - 

9 - 

10 - 

11 - 
12 - 

fILt 
FILt 
FILL 
FlLb 
FILL 
FILb 
FILL 
S- ILE 



\;EKLKATLh' 
FlLr. 



XXXXXXXXXX 



c 
C 
L 
C 

c 
c 
c 
c 



LtSbGf-j SCRATCH 
hcACLH FILt 
DIRECILRY riLE 
'^UtSriuN FiLf- 
STUutr;! aACKG;^GUisD riLL 
blUuEM' SCCftfc FILL 
ftXT FILt 
SYSTbrI FILE 

1500,33, U, 13) 
o ( <500,3 3,U, io) 
7(200, 1G0,U, 17) 
ai 4oOO,35,U,Iii> 
v{23C,33,U, 19} 
10(8040, 3i,U, I IG) 
ll(f.0u,23,U,1 11) 
12( J00,25tU,I12) 
l<\-TF.'oEr;*2 [;<P(i6) 
THg FLu'rt OF THIS PKOG«AM IS A5 



FLLLCivb 



1. IMTiALI/.fc 

^. INPUT f-'-OMTOK DATA 

3- SLLSfCT A AcPCkT 

4. INPUT KilPoRT DATA 

5. CrtGANIZii Thb bATA FGk 
o. PkuOUCE a klPCRT 

7. .-luL.cr .vEXT HGPo'i'.T 



LUTPUr 



FILMED FROM BEST AVAILABLE COPY 



Al"h5 Ii{ SlJKLc .STAThMLi\T LlSTl.NG 



r 

y C A.Kc: ;UwUtSTbJ 

t >>ra'oH 1 ILL l-'HbuGCc Tht: ucuLcSTirC 



DL 100 K[^P^I^lc: 

GC To { TO,/!, 72, 73,74^ 7b7 76, 77, 7g,79 tbOrc L,cJ^, bi, oH^/C-?) 
Go TG luO 
V. PhoCUCr: j^cPukl Ci\L 

CALL i.f^::>fS(»LCAC« T'H«;^^ruOCiM 
CALL K::cP{ {RP{KIkP) ) 
C\Ll RfcPl 
Gl To ICO 
^ PaulUCE »<cPOkr TwC, 

71 CLMlKUh 
CALL kSL?{ lap (KI'aP) ) 
GG TC lOu 

C Fr<UL;UcL RLPoKT ThRLf, 

72 Cu»\r IhUL 
Call .^ShP( ir^P {r<vISP) ) 
GU TO loO 

C PrvLUUCE RtPCKT hCLR 

CALL uPSY3( »LuAG« T«KtPT00cj4' ) 
CALL PSLP{lAp(rViKJ^) ; 
CALL KcPO^ 
GC TG iOO 
C PKUUULE kEPOKl MVb 

74 COKTINUC 
CALL uPbYS( •LLAi:S 'KEPTOOGA' ) 
CALL l^SEPi IkP (Kit^P) ) 
CALL SIZP05 
GU TO iOO 

C PKuLUCt REPOST SIX 

75 CUKT1MI& 
CALL uPSYS( 'LOADS •f<&PT0004M 
CALL KSCP( IKPtKIkP) ) 
CALL FEP06 
GO )u iOO 

V. PKUCUCt KePOKT Sl-VEK 

76 CoNTlMJE 
CALL OPSyS(>LGAD» ,H^tPT00U7M 
CALL HSEP(IRP{KIHP) ) 

O CALL HfcP07 

ERJC Go Tu loo 



FILMED FROM BEST AVAILABLE COPY 



mi/o ill b^.OKCL :>rMTCfw,i\ r lutul 

Call h bf:P( lRP(Kl.xFJ ) 
Go XC 103 

CALL i<::>:,?{ i.V^^lKP) i 
^ Go TU iOO 

f c PKuOUCb RbPJ^r rti\ 

ti Call KStPl lKP{KI.%i^) ) 

3 ro 100 

C PkLJUCl RfcPokf tLLViil^ 

CALL Li^Sy->( '^Ll Ab» , 'KhPTOQli* ) 
C^LL kScPC i.sfMiN iRP) ) 
CmLL RtPU 

Ou To iOu 

CALL uPoYS( »L iAL* REP TOO 12' ) 
CALL r^3cP(lXP(Kli<P) ) 
CALL KLPL2 
TJ iOC 

C PfvOLUCt kEPUKT IhlKltihfs 
b^ CuiU iKUt 

u/;LL KStP( iKPlf^fRp) ) 

GiJ fG 100 
C pK-JCUOt j^bPORT PGURilrtN 
03 CLMlNUt 

Call KSL?{IKP(K1kF) ) 

CALL UPbY^t 'LGAC r '^<bPTG013» ) 

Call RtPis- 

Gl TC iOO 
u PnCCoCh KtFOr<T !-lFThLK 

CCivTlMJh 

CALL CPSYS(«LOAo«T'Ki:PTOOi!>» ) 
Call RSCP(.li-iP{K[RP) ) 
CALL k£PLp 
oC lU 100 
3b CuNTfMJt 

oALL LPSYcJl «LCAC» ,»RtPT00i5M 
CALL RifcP{lKP(KlRP) ) 
Call RtPio 
loO Cut\T I Mifc 

WR1TGI3,96) 

96 FbKl^iAr{/,lX, "fcrNL; OF Af^Mb OUTPUT GtNcKiiTG*^' ) 

97 r-LRi^AiM lOXt L6I2) 
CALL EXIT 

LfvO 

:iUOKaUTliVt HhAi;PC( IF;PT, iPGE) 

Ir4TuGl:k*2 rNFGRH(12) ,DAT6( 4) til 

lATfcGER*?. OkP( 7) ,IRP 
ulTsTtrGhR 0 ( iO * AbS't'S GUS'TPUT»,» •tkAT* , 'Oh, 

I'RcPuS'KT N»,»o. V 

tOUrVALbrXE { i«\FUKri(5)rOATE{i) ) , ( i NFGi^i^ (9 ) , TlKfc { i ) ) 

CALL 1KI-G{INP0RH} 

V^.llTfc (:>,100G0) i»^PT, rrf^.EfOATE, IPGfc 
JLGOou F:)RhAT{ IHi t/iH ,» A.i.K.S. PLPOia GENERATOR **-'r KcPOKT 

■*P:AMr_ei^_ . - -- . - - . - : - . : . . . - - ; , . : r 



FILMED FROM BEST AVAILABLE COPY 



Aic.S ill 5GUKCC i.r«lXhfci\r LlSrifvij 

lkut-1 PCc+ i. 

iCTf r-.. 
JL- I G K - 1 7 7 
iO <JKP(KJ = IkP 

ilw K~ I rOO 

u.'.ii IJci i-,.Tt-T jLii ) {'^Kk ( J) ,J= L, r ) , ( c( L) ,L=l ,10 ) , I KP,0( 1) , 
1{L:<P{ J) ,J = J.,7J,{o(L) ,L-i,lCl ,lwPti (ii,(LKP(.il,J=--l ,7) 

FUKXAT ( Inl ) 
J;- {•i.iK,-.AT( 1X,2( 7 U,IuA4, 12, ,712) 

FUNCTION i>l,'Jiui^O{ rP,H,A) 

li\Tfc\^>.K*/: U'ASS jbUBGRG, 17 i.i> F, i\, !>( l.L ) 

IaI lGGK*.? Th., ( 4 ) / J,5, 7,9/,S!:LrhW(4}/LGo,yO,OL, 

I aT izG Lk L c ( 'I ) / IOC , 80 , 4u , .1 C / 

i rLbT= lPAiS{(i,A,N,D) 
GQ ri, {iC,lO,3U,-'tu, 10) , 

10 CuMINUb 

. ir ( f fLir.tits.'UAiSiij.rv.cv.. L) subgho^lco 

CO 3i Ki=J.,4 

{K-(a.£v. Thi.'CKU) SUbGKD=SCLL-HW(Ki ) 
4U CLKTlivUt. 
CUD 

S U B K 0 U T I N L G L r IT ( l< L K 0 D , L c S S 0 !\ , i b b K .\ -r , f Y P & , F 1 1. c S , i: 0 1< b ) 

i N V r G t K ^- ,2 L L S S G i\ , S b G F. N r , T Y P c , a R K L t< S , 1) c 5 TN , L P t R , G A t^.O 

ii'iTi:Gkk*;> KfcG.'^Du( 70) , HECuRD (iit. ) , KtKORDl ol5 ) , PTKb (50 ) , WGS { bO ) 

IKTtGtR*^ WASThO) 

i iviT GG tR S YS T iz K , H i! AD t R , G UE S TC , T A P ii 

INVcGER PILi:S(5) 

LOGICAL ONE 

SYST£K = !:iLr:-S( U 

HfcALjfc.<=!-ILtS(2) 

G'Ji:i>TG=f-"ILtS{ 3) 

TAP£=FiLES(4J 

Ml DDL I 

GO ro 1 

cwTkY Gtr.SbG{KhGi^.bu,L{:SSuN»SbGHIvT,TYPF.,UUfcST.\,FlLLb,hK.<CKS) 
iYSr£M=r-£Ll:S( 1) 
H&AD£:R=niLES( 2) 
UU£t>TG=r-lLcS(3) 
rAHE^Ml.liSl'i ) 
Mi DDL 4- =2 
i Rt {'oYSTt ■* J.) L!-LKri,'nAJrL 
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IF { (Lu:SSLjiV.tjT.L ) .A!\U. ( LcbSC!\'.L il.LP^KMi) Ou TL <: 

:■>=-! 

Ici^iu^ IbTAAl +iNCS(Li:SSCf\ J - I 

li- ( ( Ki.:sU.'L<( J J . cu. bfcGMN I ) * {kuK'oRb( ^ ) . el.,! YPt I 1 Cu lu 4 

IF- ( • IGlLC.Lv.I i KElUivh 

.IPLli\n =i-;e.<.Oi-ij.{c. ) KvUt S n,-L 

U- {uUtST,1.Gr.i<LKUkC( H) } Gl T(. 701 

.^cAC( QULbTL' [PLLaD Rl-Ci^SC. 

ktlTUHiv 

SrLTU.^K- 

L.^TaY r-IWUlT{ MlLLikU, L*:SiOw,SLGMK-"J , TYFi.,CAaOt F- li_ j:S , t.it-Mwi 5 , ij'^c ) 
SYi>Th:f-, = J-iLLS( L j 
HcACcft=i- ILrS(i) 
^U£.STU = F-rLbS( 3) 

(.KJr.JNt) GC TG LOO 
CKh-.FALSt. 
KhWiWU r/,Pfc 
lv)(/ KtAu (TAPb,c.*vU = 7GiJ RiiCORu 

IF ( (k£CL ilL{ I ) .eC.LLSSGiX) ,ANO. (iu:CCr,b(3 ) .Lu.^fcG!^i.\r) .aKu« {RtcUf-;0{ ) 

irt if<cCORO( L) .bT.LcSS0.N).Ai-.C.(CAKC.tw.2) ) GC To 701 

00 TC 100 

iuG If- ( {CAkO.£v4. 1 ) .Ar|D« (KfCCRD( 2) ) Kf:' rUHt\ 

IF { (CAKfJ.ty.2) -AfMD.(i<£C0i<&l.1).i>JE.0n KhTUR.V 
IF (CAKG.NE.l} Go TG lOU 
BACl'xiPACt r«i^E 
BACjvSPACJ: IhCt 
Gij Tu 100 

S'06,'<OUTINL SUt3>'.lT( TP,S'l ) 
Il'PLiCiT {M£:Gt;R*i; (K) 
LOGICAL*! TfcSrC 183,10) 

lNTnG&r<^=2 U1U( 12)/ l,y, 8,27 V ,3r 10, A ,10,5,10,6/ 

ii\rtGcr<^.2 GurcHK(iO) 

l.\TtGhH*2 rp( 5) ,b'T,SG 
lNTfcGet^*2 CJiN,HTP,f'S« 
DO iU Kl^i^lS*? 
UC 10 K.z=l,10 
nfST{Kl,K2)--.FALSt. 
iO COimTIMJL- 

tNTisY CHtCK{CSN,kTP,RSG) 
(r rei.T( ) IS THUG THc STUObNT SU6.'<ITT£0 MATfcAlAL 
YfcST(CSi\,LlL(RTP+2*{RSC-i) ) ) = .TRUt. 

KuTUi^iN 

tivfi^Y OL rCHK (CSNrbUTCHK) 
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ir { .isGf • rc^r (CSK»K ) ) ::.UU.HK(rv.5 

UUTCriKl LJ)^i 







V 














L t 








! UU 


i 






«- U u 


o 








i t v; ( J » I ) 


Li^r FAK IS CuKcCr ANS 




IH 


7 v} ( t , ) 






L 


3 f M { -J , I ] 


2Ku PAK IS c>TULL,vr*S -;:.Sh» \3l 




Lh 


7 t a ( W » 1 ) 






IV r; 


>7 / 


ti^LC?^ cut.<tcr dl TS 




c 


ill l/Aoyx) 










CGoK r S A\\t 4Th HAR.'-;j^ifc; fi:?^ 






iAT^^:^y i i. 


fcLL ASShiMoLcK 








CLrA.^ Ai<fcA 












S^" 


J > U 


cLLmK bPRO l-uK 7GTAL CK^fcCI 




s.< 




CLbAR GPk3 J-OR TuT^^L 






b, 2i 


Lf.Fr SHIhV Xij SlT UP FlX tJUJ\* 




SLL 


7,^1 










THIS LlGP btOlNS Tht LoUKll^G 








SbT uF r-uK Tnt: LLUf 




LA 


10, -13 (Of 0) 


ThtS IS UUl^ INbtX GPK 




L 




1 H I S IS The I K C-K U^'; ^Js! 1 




L 




This ii. THL COKPAKAivO 




his 


CuKfcCT,CJRirCT 


CLtA-^ THl' HI jKOhK b?R*i 






o ruJN I » o J uuN r 






SLOL 


CQkECTj 1 


PLACE A 3 LI IN FHl GPk 




SLOL 


STuONTf i 


/ALSO FLR His RL^PuNSl 




AR 


Ot CUi<f:C r 


CGUKT the CGkRcL I li I TS 




MR 




GCUt\T THE :!>TUOf:i^>ir KcSPGisSfc 




STH 


STOUi^r ,CGUM S( iO ) 


ANu COuM' ThE Ki-SPGWSfc 




exH 




FINISH LOOP 




L 








cjC 


X«/^» TSC/'ih 


If KGNC OTHfcKSrThbiV A dLAiNK 




L 


4, -f- » i • 






oTH 




CCUKT THE cLAhK 


SG>ic 


L 


4,8(0,1) 


GhT AOt< GF ^kD PARAiV,£TCR 




STH 


3,0(0,4) 


PLACb KfcSPONSt CNT INs 3RD PAR 




HOHc 








OSliCT 








&S 


IH 




CLOfvTS 


Ob 


iOH 





















INCLUDE lUGHT 

PHASfc RfcPTOOOl,* 
// c>:hC F FOR I RAN 



bUCftQUrrNE REPl 
UIM£NS10N ALiNE{J2) 

OtMi-^./I^.N V,u..( j) ,]l-..J( -i) »rhR(3) 3) tTI V( 3) 
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aI.-'.o III ii.uKi^L ir<. Tcf-!;.') f LioTl!,*^ 

lt\rcOi_Kv2 Lc.SSO;\' joLoy.NT tlYPi t i: K}o„a wUc^ T .i 
livTdGCR * Z ^P,L^!,:)l,SC,Cb^,Tl, r...',U,I4T f-j 

iJ.ltGL:^ * I HUK('tj) ,ArN'i(Hf;) ,Kj:CH(c:> JtKfcLRto:)) ,}-bLi-Uo-^) 
l.MuGcK * Z :CcY( 17) ,P!M:( L:.} 
INlEofcK « 2 if (S J ,CAKu,KrH,Kbl 
INTirGER 2 LRiS'MCo) 
{i.T(L-Gc>s * 2 oRiJ 

l!\rCGr.R * 2 St:C1is(2),Gr^GUP(2),BACK{oi5) 

CaTa .v.iN/»PK£ 't'TLSr*,' '/rTv-.O/'PUiiT' , ' TcS','T 

iTHR/'riuHc' ,'>^;uK<\» , » • /, f CU/' ^TUb' , • Y Gu','loh »/, 
^l-i V/»rtSSi ' , 'Gh.'';}?* , *ul '/ 

OAT A AL iiN'L/ j^fv « «/ 

LOGICAL Cl\b 

LQUIVALtNCh ( HLK(l), HtChllc)] , ( Q\\k: , ktGrt{i3)) 
cOUlVALcNCt ( KLY(l), KiXKC-iii); , ( i?Xc(l), k£Cf-'.( '^d) } 
rCaHVALbviCl: ( KtCKdfcj) , ( Ci."^ , XtCRl^J) , ( Gr;u , ,'<r"v,K( 

L.10) ) 

Uo-KCUPi L) , 3aCK(4A) ) 

ftF.AD{ I ,'?<0) H.P,LN,bT, SC, { Tp(K) ,K= 1,5) , ( Li<.\.>!{ J ) ,J = i 
90 f..K,vAT(12, ?X,3 l2,5iJ.-,'5X,6A2) 
LfESbON - LN 
t-lLcSlU = 12 
t ILCS(2 ) = 6 
rlL.-^(3) = 6 
.'-"(Lf.S{4) = 4 
HllfcS(j) = 0 
GkAO = O.OG 
CARt) = 2 
CbUM --- u 
IKPT = I 
IPGfc - 1 
luUT = 3 
Gsvii: ^ .TRUE. 
OC Id KrP=l,5 

[F( rP(KT?).Lfc:,G.uR-TP{KTP).bT.'3) GG Tu .18 
TYPL= rP(rvTP) 

rF{TP(KTP).!\£.4) GG TU 17 
00 16 KSr^i,ST 
SCGMNJ=KST 
17 CONTINUQ 

GALL KS£:P(RP) 

CALL GcTIT ( KEG H , LE SSC'iN" , SLGi"!M , TVPb , h [ Lb S, tKKuR S) 

IJ^CCKKORS.bw.i) GC TO 12 

lKCf!PORS.bi^.-l)GG ru 12 
3 Call f-tNOir {RfcCR,LESSOK,SeGr-SJN!T,TYPi: ,CAKU, piles, !:!<RGKS,ilN(:) 
C c.<P.iJK KbTURfv CHtCK Fuk rINOlf 

If- {tRRoRS.Ew.-l) GG TO 10 
C fl fLtS PUt< RbPGSr CM 

call HtAi)PG( IRpr,iPGE) 

INN = CS^ 

RbAO {gUNf'j'J (!3ACK( J) ,J = i,6b» 

rr t (3 , 1 00 ) itnm u ) , j= i , 6 ) 

100 FURt-!AT(40X, «:jIUGt:NT P EK FOKMAWGi: ANALYSIS FQ!< COURSi: »,6A^) 
Gc Tw {26,2 7,^8,2^,30) jTYPh 
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Ai.XS III iCUKCc iTAliiMk.M L1;,'Uj.v.. 

ii> }c( l!jUT,i02 ) La, J) ,J-i,j) fbt-uK.Nr 

uC T-i 31 

^^ »uJ rc( lCUT,iu2) L:W{r-y>u(J»,J=i,3),bto.NM 

GO rc M 
GC rc ji 

«JUTl:( lCur,iu2» L.w {l-OU{ J 1 , J=l, j ) ,SLo; .-r 
GC fb 3 1 

it •.■,S> ir.:{ 1L.UI ,iL2) L\-, (t-iV{ J) to-=U3) ,Sh.bC.M 

11 C<.i\l livoh 

^..^ I Tt( f'JUT, 117 J {ALIKcl J) ,J = l,3,i) 
117 }-C-<(^,Ar { 1X,32Ah J 

rtiv I rti iuur» U5) 

I Lb rUKiMAT ( If.t , IX, 'LbN' , lOX, ' WAFL' ,lcX, » U it (•. « ' St O f lO..' , ."jX, 

I'GKLUP' ) 

WKlThl IGur, llo) CSM, (dA/'.i.iO{ J ) , J-i,23) , ( Set Fi-il I ), l--i,^) , 

llv i-URr.AT ( iX ,l't,^3kiir.ilX , .iAi! ,26X, ?A.-- ) 
rtnlTtt ICUT, 117) {aL ihi,< J ) ,J=1,32) 
;-Kl T£ ( lot r, 10 j ) 

l<;2 r-<..H.-.AI { lXT'^'Jii6TIc>\' ,7X,'AivJS=rtl.H , {.lX,'bi.h/;VlG-.<AL OoJr.ti tVL' » 

U /X, « <^cSoAGh« ) 
J. . o K = l,(<iifJ 
CuLbT.^' = K 

ULbT - SLibGKiJ{yYF'fc,HUh(K),AWi{K) ) 
U- (ilcST.cC.O) Gb IG 7 

w»<{TL(icur, 10?) K 

10? F.jr«:MAT ( , i 2, 16X , »C • ) 

T;j 6 

7 CALL G 1-:T)-1 tJu { K t Civ , Lh S cQK , SbG .MNT , T YP h , uUt S r , h 1 L fc i , LK.iOK S ) 
IX lUUr,.Lv)8) K,(.<HY{J) ,J=l,i7), (l-'.Xfc (L ) , L== i , o ) 
lOo FLi<.*!A r ( , 12 r ioX , « K » , 1 17A2, 6X , i3A2 ) 
6 CCiN f f NUh 

Oi-«AC" ■- ClJUKr/t,;i\'G 
IF(CRO.Lu.O) uC ru 21 

w.Hireduui ,iut5) 'j.%c 

.105 FOKMATl IX, 'YUUK GRAi}fc IS »,13) 

V.K1 1 fc{ iLUTr 104) bKAD 
lo-!;- r-uK.'.AK IHOtlX, 'YuUfl RArf' SCORE IS SFij.O) 

GO ro 22 

21 MKnt: ( IGUT, 106 ) GKAD 
106 r-OR;-?AT( iHO,iX,« YOUK GKALt iS ',1-^5.0) 
^2 cUf'TlivUi: 

I ■C0U.'ir/10u+-*c).LT.CWG) '.^K Cr&{ luUTiSys) 
yV9 FL,.. iAT{ iHG,tX,»YUiJ MUST Sti. YUUK liVoTRUGTuR THIS V^LlK lu OlSt.USS T 
IhiS TtSI.' ) 
GRAD = 0.00 
CCUM" = 0 

GC ro a 

C IKSfcRT ?CFOKC KETUUN 

12 vvr< i 1 1 { 3 , 1 13 ) £ RKOR S 

iU r-{JRF,AI (iX,'GtTli tRROK LGVSL = »,12) 
GG TO 11 

10 tifil Tl-(.3,112 ) bR!<GRS 

:il2 hURMAr ( IHl, 'PINDIT &RROR ICVEL = ',12) 
Vd FURNATCIHI) 

1 1 Goi-i r ii\G t 
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He ri>-^ 






2 
















2 


orc AUf uLi\ f CoiN » Kbv, t m cb, Li\ , S Tt jllt tT vlT H, ;-P 




^» 




CtLUC ^-jo ) , :5TAk i^-t *.:.0) , TP i 5 ) ,hA.Sb( o ) 






*> 

•c 


hUhfsLL ((s:? ) ,krSKtC{cb} ,huK I ^ d ) t AAia ( -'t^J , 


1 






tAi^ltKStK IGHT, [ f'u.':.! ^CCuWTtCAki} 








rJLcb(tj)/i/i76»o,4,u/ 








^i^.v:,CLivTH,CLWTh/?,Cl-Li\uX{^:0 ) t i LXU , i^.aaV t :iCAL u 




•r 






















in! i:UhK 


A 




3Cu.Kc» SUiiGKi) 


CI MLO[ K 








1. 






*PUiiT«t' US*,"! 
























'Abb IS «btM^U:» , '.\r * / 



iwUlVALcNCL (h^Kd) ,HDKi<cC( lb) ), 

1 (ArtSti) ,i\i.SKCC( lb) ) , 

2 (CS>, ,HfcSKfc'i.( 2)), 

IfvlPT = 1 

rouT = I 

CHFCK = 0 
Cfihu = y. 

iPGt;=l 

SCUKt: = U-00 
UtvE = .TRUE. 
CLLLii) = 0 

Ui) 9? KK = liiC 

SCGRe.S{KL5) = U 
STA.-<(KL5,i<l4 ) - 0 

98 CGf^JTINUu 

C 

C FCAD Ih RcPUrtT CUi\Tfc)NT CARD 
C !<EOUlKnO iNFoHKATiON - 



C I XfrPUftT N'UHBLK - KP 

C 2 LcSSGN I^UHuER - LW 

C i SHGHtWl - Si 

C 4 TYPt: - rp 

C 3 CUUHSI: NAME - fvAMc 
C 
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VO AT( i^t 7X, J U U tOA^» 

CK Vj jj = to 

Ir ( ri*'{ JJ ).Ln..O) t.L. K 

r 

C u:>r. GirTlV TC ubT#*lN rvLAbciN ^LCfAU Lr *lvt[rM> Ti^^T 

CALL *o t T I r { i ^ U .< »\ r. C , L , 3 T , r H t r i L L S , b ^^ . . I. u rj ) 
IKCRHuHi.cu* U fO ^uo 

I F{ c:\t<OK:)-F .--1) Tu cOl 

t 

C CU.i^UTL ..cLL V, ic^Ff- a.\o v.cLL VALiJfc^ 
t- . SLT UFHLr tuLL V^..LUh To lUv. 

t THc:>c IS cKj C».LL I-uk h^Cn uUt:>TI'J.\ ih Fhi TL;j1 

LLaFK - 100 / '^i\L 
CC 3C iN-'f - ItC'vL 
^ i 

Ct:LL(K/^| = LLLL(Kfv^i) ^- CLrtTK 

L 



t /4SbU;^ GK^ue Tl CfcLL 

t flPtAT U.^IIL ALL ilUbLrvTu Akc 'j-*xL!H.SbCO 

C 



-:2u Call F iKOil ( i^lSKcC t LI^^ 7 ST 1 1 P 7CAKU , f- ILlS t LKKokS, Oi\l ) 
tKKjKS.Lu.'-l) Ol IJ LI 
v,i:u.M ^ 0 

nXST ^ SObOKDJTI^Hi^lUK) t aNS{ K) ) 

I FLSUtf^.O) Gb T-J /!1G 
CrUi\T = CwU.NTi- I iLsr 

SCLKL = CuUKT/..r.J 

Ob 40 Kl •= I7UKL 

II' (bCLKh.WL.O) ut) Tu ^2 

UFRu ■= [ZlRC + I 

Kl = CNu 

GC ro 40 

42 IP{SCOftt.bTci.i:LL(Ki)) GC TC 4C 

CcLNUH{KiJ ^ CLL^UH(KL) + 1 

Kl = GiNO 
4C COhTfN'UL 

GO ro 2:^0 

C 

C :>CALt CHART ACCUi^CI»\6 TO VALUcS Oh CfcLiNUM 

C PiitrSMNT KAXIi'lUM VALue!> A:<b 40» 60 1 120 r LoU 

C 

11 DO 61 Kb = ItCNO 

IF (CtLi\UHlK5)aGT*40) Gu TO 60 
51 GGr4TrNUl£ 

.^aXVAL = 40 

bCALE = i 

GG TO 62 
60 uO 63 K6 ~ itCNO 

IF (CfcLI\UM(K6)*Gf*30) GC TC 6^^ 

G' AriUtJh 



FILMED FROM BEST AVAILABLE COPY 



.\AXVAL " ^rj 

V/ V. I 'J 6 ^ 
tin C. KF - If<*i\w 

jCALi. = :» 
0(J 1.. c^i 
to OU 67 f.b = LfUi^ic 

JF (CcLMJ.'.(Ki) .'<,f*lc--) ir 

:'.AXyAL loo 

TJ 

oo WKl Tt( UUl 7 loC) 

WKI ri:( louT, iu n {oi LKU^' (KU. ) t fv i , vKo ) 

100 huiw'- AKH-i I, M Kr,c^ t KAXVAL cXLcLuS LLnIFM 
uC Li 1,40 

i>LUi-?L"o(ll ) = (/-AaVAL) - (LL iiC;:.I.b) i- bLAL<- 

rX 7U KiO = ItONu 
OC 7 /J Li ^ It^C 

ri-(C>L(\*uf't(MOUC».-bt-Ur;tb{L^) ) ^ TAj^ ( , k IC ) ^^Rlx 
70 C I MJl 

C 

c 

L.aLL hfcAi}PG( I^PT, iPGE ) 

v<Ki fu( luur, 101) {nA;':L( i) , 1 = 1, o) 

IJJ. Fukf-'iAK iHo»^.8X, « -i HlbTiJOKA.n ANALYSIS FUk Soa2) 
vik I rb( luUT,">^ ) IS, { rYHuA^^( JJJ,TP( Jj ) ) , J JJ^ U3) /^F 
rUKMAV ( IHJt^JX, 'VLLurWi, ' , I 3 , 15 X , • I Yf-'fc , ' , 3^4, IbX , « oLOi'u.h J , 
hKirt( luUT,30U) 

HOG tLk;- AT {^'0>: T?/M'-M) 

v^iu {iuuTt1C3) ^CD!i-s(iai ) ,t srAKvKii^Ni^) ,!'si/: = i,v;iVL} 

LU3 ^0^<l^A^^ 13 , 1 2X , 20 ( Al, iX) ) 

Wf<JTli{ IbUy, 104) 
104 i"bkMAr{2X,'U» t71(»--M 1 

viKlTF(lCUT,i05) (CGLL(KIJ) ,Ki3= i,wKC) 
lOb PuRrtArC SCJiaSSoX,2C{ 13,1X) ) 

W.^ITc( ICUTtiOo) (CtLNUM{i<i3),M3 ^ itOivL) 
lOo FUkKAIC bTUu£M^»,4Xt^0( I3,1X] ) 

UK ( Tfc ( ICUT , 109 ) l/.hRO 
109 FGki''Ar{ IHU, « i\U/.dfcK GP ZfcKb VALUlS IN isAi^J^Lb = SI3) 
90 CUM IiNUt 

GC rC V6 
^00 WRlVcC ILUT,230) 
^30 FUr^.iAT ( IHl, •GhT IT = !• » 

lyL TO 96 
iul wf^ITliC lour, 231) 

^51 Fu.<itAr(ihi,«Gt: nr -LM 
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lK']>bt. K * i A ^SVi'LK 

iPGb = I 
IGUT = 3 
iivpr = i 

tL£:-> ^ 1 
CLb:^ 

AbAU{ INPT, LCb) {Gk1n.S(J} yj^l,6 ) 

Call HtAi.PG{ IriPT^lPGC; 
12 I G{ loUT t ILO ) 

lb V:Kn L- ( 1 JijTr ioZ) 

i02 rJjRhAli ) Hu, « VCLo.NC STrG^t/U TYHc: CUE^TlL:\ lU cC jLJCb'iPTIG 
1 PRESCRIPT lGi^« ,i6X, « AiNiSh£K« ] 

RbADdCUEST'iLtS) (RECM{ J ) ,J=--U7C) 
ILhS ~ ILhS i 
IF( ANSlihR.eg.S) ANSWER = A 
IF( ANSi'fE^*L'w.5) AWSWhR = 3 
[F{ANSk(:K*LC*9) ANSWER ^ C 
IP{ Ai\'SWER.l£w* 17)ANSVxcK =^ D 
lF(Ar^SWt:iN*E(a;*33}Afv;6,\L-.R = E 
(h{LtSSUi>i*EC*C) GO TO 20 

Al'lXEi UjUTtIOj;) lesson, SfcGMNT , T YPE , ^UE STi\, ( TO { J ) TJ=if2)t 
i{l)ESC{ J),J:=I,17J ,{PRcSC(J) ,J^i, 13) 

10 3 Fur%MArC2X,l 2,eX, I 2, 4X , i 2t5X , [ 2 , 5X, 21 3 , 3 Xt i V A2, i 3A2, ,A 4) 

Ct\TR CNiK + i 
lE{ChTR.££;.A3) GG TO 16 
Gu TO 1^ 
lo CiMTR = U 

CALL HEAOPGdhPr, IPGE) 
GC 10 Id 
20 V.KlT£(IUUTt 104) 
104 FuUyiAT( lHOf40X, 'ENC CF r^hi/.t 
.'sLIUj-^N 
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ERIC 



liNTirucR L.Air.{iC)/ 10^' */ 



^ CT.>.T 



i > 



i J 



J'/ 



c 

*t • >i J ^ I ' t ' or»/ 



•/ 



HaTP£CcS 



•3O 
C * 



tPoc = 1 

i',jT = 5 

i.^J^I = I 

t^TAPC - ^ 
CaKl = c. 

rn...S{L) = i2 

t-{Li-S(;^) = o 

t-lLt :>(;>) = o 

^iLi:S<4) = ^ 

^lLc.S(5l = L 
C'f-ib = -T^-Ufc- 

00 > i=i,4o 

ijij t> J = i» ic 
T<..Tr.CS(J) -0 

<ir.\{i»j) ■= & 

ST:4K{.i,J) = 5LAi\K 
o CCMli.j!! 

TOTAL = 0 

cfaisT=o 

R£AC It-i f-LPuRT Ctir^TCKT CA.vC *** 
Kf.Au( iNPTj^O) K£PNO,LtSSOiv,Sb<iK.%T,SLCr{v, (TY?tS(K) rK-i,^) 
l( i,RS:NAM{J) ,J = 1,6) 
r-DKMAT{ 12»7X,3I2,5l L,yX,oA2) 

HAJCK LOOP iS FLP. TYPE (vUi'.dbrt 

TYPf. = TYPlS(K) 
il^(TYPtS(!<).La.O) GU TO 30 

*f 

INStrtl ASTtKlSK FJ.< CGHRI.CT AKbvvE^^ 
CALL G C r I T t +1 U ft ' ■ c C , L c S b C ^ » t G i^c N T , T y P e , r- 1 i . L S , L K !% 0 i ' S ) 
AU.i.StL ^ IbTSiL/viSb 
.7-7. - . _._ _. . 
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* ^ 

•* 

...» LfLl iUjTr'^li 

ni-( i*\iT L^-SSl V, ( FYP.vAi^a N, FYPi: ) ,j,= Lt r 

',xT{ ihCf /,oX, * V^LLi^'Ct * T i5T I^A, « TYPL , ' ^3^^, it^XT ' ^: u » U 'iJJ 
. U *: ( i^.LT , ivv:. ) KOi* SlL 

Ar i rr ( i..bT,9~i ) 

•iAi The i( U'l t ":? ) ALPoirT 

:^cY Li-' Ft., JAPE »^,irAL 

If {EKr.ur.S-.:iU.-iJGi.. TO 32 

FILL l:\ f.Lbt-C*\:ic: .^:ATK1> 

cr-;Tioi = cr;rrsT ^ i 

t- U K c :^ - I P A b 3 { D U ir^ I % Y , i .V ij ,s i: J , r>i u ^^ ? U i\ t A js' S P C 4\ ) 
ll {i\UxPU.>,.Gr*l J L.i\rf;UL = LMhUL " I 

>L 12G J<> = i,NU:"5bLL 

120 CcMlivUt 
Ic CoMUvUt 
Gu Ti li 



1 



CCii'PUTfc LiKfc TOTALS *** 
j>2 iS IC =i,v.iVL 

oU 20 Jb =i,rvUr!St:L 

TuTwT.'M IQ) ^ rCTuTN(I )) + t,Th{ U^, JS ) 
rtTKES(JS) = rGTKfcSCJS) + 0T.\(I\4tJS) 
20 C'JNTINUt 
lb CUf^iTINOi: 

00 200 J<*=l,i\'JWSi:L 
>1GL 1CT;.L = rUTAL + TurPtSJJ^) 

Wftirt {lQUT,i5o) IG» (eriM{lU,J),irAk(IQ,J),J=l,iO),Y0TQ f,\{ Iw) 
150 huK^;AT ( lHO,.loX, U,.lU{ 3X , I J , « L ) ,7X , 13) 
^2 Gl.i\-TINUE 

i.ir<lTc( IGUT, 160) UASH 
160 f-UKHAf(10X, 'TOTAL', 7X,10(A3,4X) ) 
Q WftITfc(IuUT,i70) TOTRES, TOTAL 

ERIC L70 hGK.^AriiOXf'ScLtCriOKS »,iC( n*r3X5,3X,I5) 

aiB^iB W.- f Tt ( laJT,.i<:o) CivTTST 



FILMED FROM BEST AVAILABLE COPY 



LoMluuC 

// Fho.<r.-.fc.-. 

U t f* ^ ?\ I" 7 L »^ J U •< f% { O ) 

f-j. -tJiTC I'i, i^j lc/.,t ;^.} 
I!- lLcS( i »■=! 
I'-.t-ti - L., 

:.i^LL Cct{i,h{ i.vL. o, IT^S, i^iA'f^, LcVtLo ) 
l;-LL 'JlVfi,t{ fDAT^, IIJS, I.-acS,Li:vrL3 ) 

Slii.i.-OTi.vi L-^CIucC lfiL = 3»I TCotCATAjLtVtLS ) 
•McGCK KEAl)£:K,SYSTcM 

iNFcoc;* LtVfcLSt iOo) , I luSC 20G ) ,Lr.« } 

I ivT Tl- i jL t { 43 7 la ) ,HJ'Ri { oe, 10 ) , CC FoLc C Li>, 2 1 
I.\TLc,brv*^ TLCf-iTo(200} TdCKGtco J 

I i-,T fcOck*.2 ixOi ( 40 } , PTh5 { -40 ) , S FLiNtCi ^1} L ) , ycC S ( C3 J ,r:tCH( o5 } ,Kte.« { o i ) 
I .\TCoiiK*2 I KFt.h;'. { 12 ) , T£ ( *, ) , T I ?-! I- ( 4 J 

1 :iTL-G£K-2 .-^QSTfcH ,L FE R:-:, NP LKf^, LTli;-.}- ,Kr EMP , cR.^FLG, K I GH T 
I 4T-.bc!<*2 ISTULio^) ,isru2(c5) ,liTU?(&3) ,ISTU4(o5J 
cgu I VAL c.NC t ( IWFoK^ C 5 } , UA re 1 1 ) ) s •: [ IcF Jft.y. {^},fl..fc{ij) 
r-^JUlVALfcNCe { ISTo' L { 1 ) , STUKkC { 1 } ) , { I STU2 ( I } tSTUi cC { ec) ) 
cCUlViLEwCt { ISTU3{ U,STUKEK,{i UJ ), (Ii>TU4{i J,5r?>.bL( l9o) } 
C u .M r-5 0 . V / r I L L D / I C 0 ^ I P C , i P r , i !r. i , i S C H , « c A U E rf , i u C T , r V U L b , f o K o u , 1 i k c 
2,rTLXT,SVSTc-: 

rj=o 

rHfcAU=H':fiOER 
ISYS=SYST£.M 
C AT -a 3 > =0000 

iRpr=,i3 

PA.5t=l 

OU i N=l,.iOC/ 
r0CNT3li\)-=00«J0 
IT0S{N)=0O00 
LL-\/lrLS( N)=0000 
I CGKriNUE 

Call HEAUPG( iKPTjPAGk) 

G 

C Tub (vEXT THING TG 00 IS ><c:AO IK fht THRt:;HULO LtVcLb, 
C AK<J Ll.>>T THEK rOr! T rit UStK'S Uf)!! 



FILMED FROM BEST AVAILABLE COPY 



,1 



ERIC 



*,/ir T -^o^,m;'.;i'^\ml . 

: J^t f I Vc' , .riA, » I . 'o_br::.u.. LlVcL* j/ .uAs' ~ ' r - :5A, « 

^ -WlhO) 

RIA^ ( ilX,ic,^-..:>lCC) I.%^CX,iLcV 
rCiJ^: r.i'l f'ctiHTjTCUi) .i-.sCfcA,iLrv,L».VcL5( i:\JhA) 

7LCi l"LR.';i] { Inl, • v-^J. t..-.,Kv..-. rs:^4- . cH i_ t C A T fc T •;>l-wL.J i;->; ".ir it A f I Uv- 
i T.U. = 'tI-,* .aTL.-'r^I o VVt.oL = Si-^t' ^Kr._.l;\i,L V/;Ll- = ',1-*,/// 
^///////) 
CALL cXir 

ICC .v=a 

If (Lb.'i:LS(I.4)-ct-C0«^-) jU T- iLl- 

-..-.irc (l.'7,li;i) I.:,LcVtLS( lA) 

ir-( \.Lt-4:»J Tc i02 

C^LL ntADf^-iC I?.PT,FA-oh) 

C bo r:-JCH t^?. uhTTlAb Ai\C LISTKvG LcVcLS 

OaIA lSTU.l/e3*G/ 

JO i tCLXl = ltIrI:«lS 
.v.aTc{ ISCH' ICLKl) ISfUL 

iilA'o (ISYS*^) LP!:R^••■^^?c^:r^,L Ii>.P,NT£.-.P,i;:-<HfL:j 
;-:c/iO (iSYS'3) f-TKS 
KLAC { NCS 
l:>T.-iRr=r-TiNS(Ii\LLS) 

1 1 »\ '> i b r k r +N o b { i fvL L ^ ) - i 

tairr=lSrA!iT-i 

IF ( ( I:';LtS.Gr.LP£::'.K).Gl<.{ INlES.LL-0) } CALL tXiT 
iil d IfvP=ISTART, IcivC 
IwOfeX-iNP-lDli-F 

RtAU {ihEAD'INP) ^hDRb(^7 l.'vCtX) ,'N=1,66) 
0 CT iL t ( I N OE X , i > =HUk 5 { ^ , 1 iMD E X ) 
OCTuLE( nsC&X,2)=HURS{ a, INJEX} 
NwOi:S=HDHS{ liyirCDtX) 
£PCliSr=H0KS(8,lI>;ULA} 

GG 2 J=IPOlNr,iANP 
khAiJ ( IQUeS* J ) RbCG 
IKD/.i=J-iPC£iNT^-l 
Tur>iLc( iljDXlt .lK'DtX)=RfcCO(TG) 
ITC=Rt:CCi(TC) 

TjXMS( ITO)-ruCNfS( ITO+l 



FILMED FROM BEST AVAILABLE COPY 



11 kI A:. ( n API: ,c*xi.=^ ?lCU J kcUS 

If (KcCbdJ^i^r^iNLfcS) It iZ 

IV (rilL'^l -i) •Chr^v.) Tv. U 

ii 

/Cot UKirt {Ipr,?*.iGl) (5\Li:o 

7iii>-l har<. Af (L;iU<M. FLCtJrrC bF L S:>Ci\ 1 :>-//////) 
C/.LL tAlT 

rCTt5LL - Z A TAEiLt Li- Tu«S VS. i;Ul-.TIu*:S 

iXTbLr 3 l/.cLc -JV bl:C*xS VS. Ii'Hu^^ 

TiiCi^lS H T 

ir'. V .^Li. Vhl wi*. jfci\^ ^us", -A LL^^bc*. 

Lv.*t Ii YPt^KtCcr( +} 
l iiLl. = .<tCS{ 3 > 

ItMuCVoLtC I:., L) •.Nt.I TYP-) Tj .lu7 
IFC ^CToLtC ii-w, 2 i:>;zC } .-o Ft. let. 

21Ci^,//y//} 

CALL LXLF 

.^C no iN^itr^uOUuS 

AF (HORb( ir^^-i?, IuLCK}*ti.. 1) Ou TU LLC 

Ih l.<iGHJ{K£C:>( IXVUHOHS{ £XV, iCfcLK) ).r.t. IkKOr-iGJ fC liU 

S TUk EC { I TGNG ) =S i Ui'.EC { I TGi^iG ) ^1 

110 LbNTi;-^uL 

R£AG( lTAPiZTCivC=8u00) KtCS 

Ir (k£CS(2 J .£G.1SAVE) GC TC 104 

[f IT Gj:TS HcRti, I OQNc WiFH ThE KlL 

OU lil rfH=i,2UG 

ITGP^STUKfcCdN) 

J cOr=TOCWIS(lW) 

X. { I6GT -cQ* C) GO TO 1 li 

SFUKbC(Iiv)= ( lUO*irLP)/lbQT 

IF (STUHfcCC lW}-Lt*LCVt:LS(INn GG TG 111 

STU^iC(20LJ =-1 

tlGoi Ii>,) = tFuS(IN)H 

111 LLir.'TlNUi: 

lF{SrURbC(20L)*GF.O) DATA { 3 )=DATA( 3 ) + 1 
n'{STUKfcC{201).tO.G) GO FC 120 
CALL HEAOFGC IRPTyPAGK) 
KlAU( I8KG0* ISAVC )uCKG 

hfUre ( IPT,112) (SCKG(IRTJ,If<T^o,18)f(bCKG( IkF) , Ik r=^19,23 ) , 1 ;\Lr.S 

112 }-Lhi.AT (1Hu,13A2t» I-»G* NU>bI:K 'tbAZj/XH ,»THt SFUOirwT [Dti\ril-[, 
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ERIC 



Air^3 ill :i..u«<Cl >rAr4:;^LivT LliTiiVv. 

j.<mL ooJLcrivcCo) i^ LcSbJ*^ 

khHI-uKKA.,Cb lATa — 

li- { ^^TUrrCJ IKf ) .LC. OOUO) uC TU il5 

vvP.lTc ( l»T WL^O UrTSTUKcC{ I f;T ) , L b V bLS { £ s T ) 

/.^ h\i:X + i 
i Rilir { iiCn* IPLlUT) I 5Tul 
/.Hlfc ( i.S^.H' Ii<bXr> ISTU2 

vvr.l rt { 1SCH» L*X) ISTU^ 

fj l:3 

uATA( i}=U 

SUOI J ,2U0 

ii- ( ( ] ( i t^iT ) } Go lli CCOi 

VC blGO INj-=i, IK.' 

retiMTbi i.\-L,) •LL. oooG) Go ^^- cUuu 

IPdruSCIM)) .L^-. OGOQJ GG 10 BiOG 
C^LL r.^:AOPu{ JKi-»TTPAGc: ) 

dU02 FwRHAT { LnC^OX, » fEilMlNAL OLJECTIVS REMlrDiAL i>b^:>.AK Y» ,/ L.-iO t ?.0X, " L.^ 
ZSSuK • , 1^»5a, «Tir;-i^INAL C6JECT IVc • t ^ 3t4X, » CuKPJSdU GF •,12,' UJfcST 
3IG{O.V/IOX,'A TOTAL ur STUObitTS PCRPLRMcJ tJELUci Tr.L CUTGFr 
^ Uv:L SrIT Al 'Tl-^/ZlXt^THh FtLLCUlNo 5TUb£KTS HAVL PfcHFLl^i'^Lb dtLo 
:>l' fnt CJTUFF LtVCL- • //i iX, » ^Af'fc OF SlUQEUT ' s LZX , ' I .U. »M0. S 3X, « PhK 
^ti:NT ii»\KUs-^»/7X,2fc{ ' ~M , 2X , lU P - » ) t5X,» ^ 

LPGlNT={ItJ.MT*4)-3 
Ie\CXT=iPGln;-T^L 

li'iX-iNfcX+I 

KuAi3{iSCH' [PO ^^^TJ ISTUl 
k€AU(l6Lh« INlXT) lc»TU2 
r;FAi>( i Sl.H« I.vt.X) ibTlJ3 
KL-ADliSCH* [K?X)iirU4 

lF{:>TUMILC{I.sL3).Lt. LEVtLSdND)) GC TC 8005 

WRiret IPTtcsOOo) {c5CKG{INK)trNK=6,23) , STURtCClNO) 
. oOJc FCRi^.AK IH0,cX,i3A2,2Xtl:'A^,bX, 13) 
feOOt> ClM iNUcr 
3100 C:.i\TINUL 

fcNO 

StdKDUTIKb niVIO£ { IDATA,lTOS,lKLt:S,LtVbLi>) 

C 

C THIS PRLGKAh wlLL ASSIGN The TL«S TC Bb TAUGHT IN Thb J^tbPbCTIVb 
Rr."-li:OlAL bbSSIuN^-* (T CaK HANOLl UP Tu 10 5h.SbIGi\S ASD 9V IG«S» 

C 

J I f^t ivs j Ct.T { 1 0 ) I VbX { 20G.T.^)xl-« C ( i C,t2C>.,UKUv^^ 



FILMED FROM BEST AVAILABLE COPY 



I iV I r.< /: [: ;r^r..v ( i 2 ) y 0 A T t: ( -^1 ) f 7 I T-t ( ) , h tl^ C ( b ) 

u-Ul*/ALc:>Jv-t: ( [i>Jh!-RK{ ^) tCAlh { U ) » ( I f<r oH*v] ( ^ ) , 7 ( iJ ) 

C*.^^w. /fALci/ ItO? iPl t i H 1 1 [ I :>CH t I HI iXb, i J^, r, livUt J ,[ o J UO, I oC*jKL 1 

OMA 

PAGt -1 

C 

L 

O /LPU CLAbo LuC/^Ffi./\ A*vL L Csoi"Jf> Ca»>U^» 

Cu 3 1 = I 7 1 0 

. KnAuC iCLi,2f crcC=6) LIEr^.P 
2 Ft:Kr<AT(20A4 > 

GG TC 9 

6 If- 1 i:>;.Lr.N&rfn V.Kilfc{lPW7) 

t ^Jr.l TL* risG?^i .'iGST TG LLAbT I^I^c^tG- 

UG 3 1^1,200 
iVEXi I,l)=[ 
:5 iV^l-X{I,2)^iTGSin 
jC IC i = 

OC i G J — J i > o G 

If ( IVCX{ {,2) .Gb.IVtX{J,a) ) GL TC iC 

ICM{K)=iVtX(i,K) 
lVciX{ltK) = IVtX{J,K) 
6 IV£X{ J,iO=ICM(K) 
LG CuNl r;\Uw 

G 

C LHtuK !HAT ivu* Jr T.L.'i) KuT LB:ii> ThAK NL. CF SESSIONS 
C 

IF( aArA( i) .LI •f\bf^I) NGMI = IDATA( i) 

G 

G jerfchhTiN:!: HG^. MA-.NiY TG'S AK£ to 3L ASSlGKhO TO fcACh G.Ml SfcSJiUJV. 
C 

I = Il;ArA(i)/,\G^M 
llwiM:=IDArA( 

C 

C SLT UH ^Ur.t^K GF Tr'»b Ia- bACH SfcSSlUK 



FILMED FROM BEST AVAILABLE COPY 



ERIC 



Cv 1 L» 
IL ic.\UK) = ( 

ii ( iK... f .Iuafa (i } } r;, jv 

ICLASS( IP, ICKr)=lK 

rcKr=[CKTi-i 

iF( ivi<r.LL. f J oi: n so 

ir( iK.Gl .l&ATA (i) ) GG Li 39 

ol CoNT [^Ul: 
3*;; CUfvTIi>«Ul. 

C 

C Pt<l\\{ Loi CI.AS3 A^Sl&MfcMr CF TG'S 
( 

Call lifcAjf'b ( IkPT.PAGcJ 

■Akir£( lpr,311 li\LfcS,I,{LUC( i,J},J=l,20) 
31. F-uRf^'AT(lHC,//4JX,'RhMuD/.AL i.ti>SICK - LlSSO/^ PLAN* - Lf:SbG.'M 

CX, • itbSlCiV " , f3,5X» 'f-KLP. AiM)/CR LOCAllCf* S IX j^OA^/Zi^X, « r!:.<.iM 
CL UDjil-CTlVt' ,liX, •CUTOFF LEVEL* ,i3X, » NG. Gi- SruUGKTS ' /32 X, i8 (•-'), i 
ClX,i2{'-« ),.:,X,i5('-» )/) 

Kl^lC.\r{ 1) 

Ou 4 0 J=l,Ki 

•.■i.-aT£( IHT,45) lVi'.X( ICLASS( F ,J) ,i) , Lt VlrL S i I Vl:X( ICLAS3{ i,J ) , f J ) , IVlXC 
ClCL^iSS( I, J) ,2) 
'+b I'LiH.-.^!' (iHu,J4X, i4;25>X, [4, 18X,I5) 
4U v,(;KT IKUL 
50 CLfvTl.^fUc 

^.ALL COr\KcR{ IM.ES, lUAfA, ITCS ,L tVsiLS , I CL ASS , 1 VcX ,nC/- 1 , rtb TUD , i CiMT ,LG 

cc; 

KfcTUKN 
t.N"i} 

SbtiKbUTlNc Cu.\'KcK I [NLeS, ILATA , i TLS , LtVcLS , I CL ASS , )i VtX ,«GK I , WS 1 UU » 
HCNTjLOC) 

C 

C irilb KUUn^fc HILLS ASSIGN STUOtN'fS TO THL PKDPtH RtMeOiAL btSSlGN 

Of ^<fcNi,lbiN rC^JT( iO), IV£X(200,2) ,LCC( 10,20) , iCLrtSS{ 10 ,20) , IlJATA(5 » 
DlMtNS lUN lT0b(20a) ,LEVtLS( 200) ,NCLAS{iO,.lUO), [KdJC T(90) 



FILMED FROM BEST AVAILABLE COPY 



,^1/^1- ill :/.UfNtt. S'lAftrKtM LliHu^ 

i:.;u i VALuwCL ( i;^l-Uri^'< ( !^ ) , it ( U ) t ( H^^cK 7) tTiHC( 1) ) ' 
s.L.Hi^UAVHLtS/ ILL, IIM., Ft tP.:, I i.uh, InL Ao, lOLI , Kur :>! , I .fU. , t uL....<t, ( 
CTrXf,lSYSj.IPi,IP^,lP') 

C 

C [fM oKutR Tl mSSUkc ^-AIkNIS: ii\ LHCICj. lf :>t:cnui\ 
IPAGc^l 

CALL lNrb( iWi uaKJ 
lS£Li}=LA8S( ISUSLU) 
C/aLL aAfvDUt iSLLL, {Y,YFL> 

C 

C CALCULATE brARfir.u oTU«,L.>{l .:L>K';£:r. 

uG ^ J = i,KSTUlJ 
i\CLAS{ i tJ)=C 

C kl:A»0 I.', S'fUuhitrs f-KCM f-lt.L 5 WITH ThCiK fu'S 

IkT=iL'A1A(2)-t(\iJ.^- + i 

K1=IGA rft(2 ) 

OL- IOC lRCD=L,i<l 

iF { iKCC.Lh. IkT) GL TU 10 

lV=IV+i 

).!\U=IV 

GiJ lU II 
.IC fV=0 

i*'-;D^ii\Ui'W { ir<CD-l) 

kcAO { I SCK • J SC ) I oTDATA ( J ) » J= 1 , 6'J ) 
JSC=JSC+1 

kbAL)(ISCH«JSC)(SrUAlA(J),J=c65iJ0i 
JSC=JSC+1 

Ki:AC( ISCH'JSC) (STOATA( J), J= 13 1» 195) 
JSC=J-SC+i 

RcADUSCH^JSC J (STDA IA( J), J=: I9fe,20i> 
ir( Sfo ATA (20.1). tQ,0)GQ TU iOO 

r 

C OcTilKfilNlL !^'^ICh SECTIUN THc STUDGrxr bSLONGS IN bY f-IK'DING TU GKcUi^ 

C HL HAS MlSSfcL) MOST ON 

C 

r SAVi:=0 
l3Uf-i=G 

Dij l = L,NGf'il 
Jl'=tCNT{l) 



FILMED FROM BEST AVAILABLE COPY 



J 



Ai^S HI SLU.vLc bTMc.^c.a LlSTIis'G 

J-lf.ii 
.N-rvLX{ ICLASb'* 1 , J J r L ) 
Ii>Ui-.--li>'.M+o rj,i l AiK.) 

'i 0 LuuT i IsO t 

IK i:bL,;-.Ll.i^o'-i) I.. TL jO 
I SAV 1-. i>AV..- 
i :iAVt--i 

J J I r { i SLii^i . L T . i S A.'-*. ) f 0 ->u 

loA><= [ jLH 
lSAVi=I 
•^L Ct.Ari;\;Ub 

C 

V, Cht-Ca ihHT CL/co.i 1$ !%uT HULL 
t 

(i- ( ICr;j{ UriVS-J .Gr.r.bTl,ij) j'J I'L oL 
iCT*. ( i SmVl- ) = it Tbl iSAVfc) 
.\CLAi( liAVL-, ( IC rc{ ISAVt ) ) )■= l.vju 

C 

C IF f-oLL Tr^Y iJlCuloS CHUlCr-. 
I. 

6o lh( LCTU( rSAvl ).G£,i\STU!.)00 TC 70 
[CTL( ISAyL) = lCi'J( ISAVD + l 
.fuLASC iSA*/lt i lC"fb( ISaVI ) ) 

ul; to iOu 

c 

L ScT .JH i=iLL DbUBL!. KhJbC.ribKS 

IKfcJCr ( ICTC{r, ) ) = 1N0 
LOG CbfJTlWL 

C LibT GUT CLAj^S KUSfilRS 

c 

Ob 200 i=l,i\GMi' 
CALL l-ifcAC-PbdUPl, IPAGfc) 
il=lCiv!T( I) 

rt:<Ug( lPT,iiO] liNLtS, f » (LOU( [t J) ,J = i,20) , { iVtX( ICLrtSSI i ,J ) , 1) ,J=i,I 

« » ilO r-UKi\AT( iho,-<»JX7 '.<LMLUIAL StSSlCiM kCSTEK • ( • - • } //^ 7X, « LLS:>bW 
C»,I3/'^7X,iO('-«)//4?X,'SL3SlG:\ • ,I3/'*7X, li( •-• \ / / ZOX t ' {> RiVf ANO/ik 
CLOCATIC^- « ,20A4///o3X,«TEkMNAL CBJ EC F [ VfcS ' /4 OX, 90 { » -« j //10K,« lEK 
CMINAL OBJECT IVf NUMBERS- ',2014) 
V/i<iTL-{ lPT,i09 } (LeVi:-LS(IV£X{ ICL/iSS{ I,J),1) ) ,j=i,r U 
109 r-eRMAT(lHU,S!X, 'THfthSHOLD L&VELS SbT AT - *,20l^) 
WRIIt( JPT,ili) 

ill FGH«AT( IhO, 'The FOLLOWING STUDENTS HAVE B&fcW ASSIGNCD TO THIS HL'it. 
CD[AL StSStbN»//7X,«STU01:Nr NAME' ,10X, 'i-iUMbhR* , ibX, » PcRCESHAGE ERKU 
Ci< UiV iHt ABOVE TfcKHlNAL Ob J EOT 1 Vfc S * / LX, 26< • ) , HX , 6 { • ) , 5X, dU{ '- « 
O) 
K=lCTO( I ) 

ir(K.bT.O) GO TiJ Ji2 
O . H;<ITI;(1PT,?.20) 
ERXC <^2U ( UKKAH IHO, LOX, ***** NO STUDENTS ASSIGNfcU TU THIS ScSiluN ** 



!! 
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L J I I AUU 

Kt.n ji ISTUDS^CIASC I, IV) J vLUiJ 
iv,.^ CoimT 1 t\ht 

iM:-^.>,uLAi.{ T, IV) 
l*iT-{A-h\i-)-; 

( iLh' Ic f ) ( b ri,Al;^( J ) ,J- ) 5 ) 

I i I - I H i 

KLAul ISCH'' Ii-lT ) (STJATA{ J) T J = c-,i-, 130} 
jC7 Coi\T.li^Ut 

I I i = I i f I 

KLAL.( I5CH* loT) {STuATA( J) r J= 131, I ;5) 

CI v r ,{ ivU f. 

ntACi iSCh' [r;l ) ( S Tl.f "l A { J ) , J= iSo , 2C i ) 

KT=iC.\T(l) "^^ 
jU CUiMTHvUE 

„:<1 rh( fPl , <:i3 ) (RCvA- (J) iJ-biL8) ,KCLAi { i , 1 V ) » ( oUmT^^I iMt'Al \<.L Ah^i i 
LJ), I) ),J^i,Kf ) 

150 LUNriN'JL 
K^lCfLliv) 

li-lK.LT.l) GO TC 2faG 

L-vLL dEAU^^C»( IRPT, U-AGt:) 

WKl 1 l( IHT,21U) ilvLcS 
^10 r-GMN'ATC lH0,43X,»Rti-1tDlAL bfcSSICh HLSl t:^' /-<*4X, 2 J ( ' - • )//^7X,'Ll SbO.^ 
C • ,i3/^7X,il{ )//20X, ' I'Hh FLLLC-^If\G STUC•^:^■^S HAVh NoF ^tci^ 

LrlllZu LHlU T-dblv( FlRSr G{< SECOisO CHLICL-' /// lOX, • ASi ^4,.^i^.bl^■l lu A 
Cl>uSoiO?\ hILL hAVt: I'U OuHb UY THt PKOf-h S bCP.. ' // / ) 

20-5 FUf.KATdH ,iiX, « STUDE.vT ivAi' t ' , 12X, ' KUMBtR • , S>X. ' Shi>S ,Id.\ ASb lta.\i--ti\T 
C/SX,^,o{ '-' ),bX,3(«-' )t5X,2G{'-' )//) 
OU P'oQ l=l,K 
Kl-iKhJLT{l) 
.■n1:AG( rSTUO'Ki ) PhCC 

•vsKl TLl lPr,2ll ) ( ><rCD { J), J=cj, ii3) Tii^tJCrC I ) 
211 rOKKATdh , 7x, 13A2, 5X, 1 b) 
250 COivriKUh 

/* 

ItsCLUCE RAfvUU 
PHrtSt ki:PT00l2,RtPT0C01 
// L-XtC Fi-(3t<lKAi>i 

SlibROUriNL HcPU 

IMPLICIT iNTuCtR^iCK) 

I NTt GI:R-2 CKfiM 1 6 ) , TP { 5 ) , i<P ,LW , ST , SC , M fvF I L ,K I m,AS 

IhiTtbifR*2 KfcSi<.liC ( 65 ) , KVGL t RCSf< , KbG , kTP 

LUTLGbi<--2 STU8CK(o5) ,UUTCHK( 10 ) , STL;;\Kb { 13) 

ioiFcGRR lurPT/3/,INPrC/i/,U£SPI/4/,UlMi>Y/i2/, ISTUbK/9/ 

IWI Jr'oLR UUTPUr(2)/' SUb. S'NU/S'/ 

lNr£;G£R*2 CSi\' 

f wUlVALufVtfc (i'VOL, RESRcCd)) , (kCSi\,Klr.SKcC( 2) ) , ( KbG,:M-.SKLC( J) ) 
Li^UlVALt-NCE ( f<TpTRtSRE:C(-'tJ ) ,( :jTDr<Ht( I ) , jrD.jCK(6 ) ) , (CSW, 3Tu3Ci<(2) ) 
PA.G,fc. -87. 



FILMED FROM BEST AVAIIABLE COPY 



ii^Aui IA1/..SY' I ) M w- IL,t\ (WCk:^ 

r'l- Al. ( i hPTct iC ) I- H,Li'., jTt J ( IP( J ,r.- I , .) ) , ( v,!^.. ■!( .O ,f.-- I, w ) 
U f wK.'aT ( iz, 7X,"i tisi iiVXjSAi ) 

CmLL SUo.'-. IT( TP, SI) 
rf<kkJ=0 

^olG Ui;/'L(ii\I:Sh'T,LiviJ = .iOGO) Ki. S.vLC 

CALL CHhCK(Hl S!\,i<IP ,Kii;> 
oC Tl 20i.O 

I'^PGL-- (Ki.v(-iL/''i^>)+i 
b"L 3G0U KU2=L,KPvjt: 
LALL hllADPuC IkPT, [PtrJ 
lt{ lLTPT,'jlu) 
'3lU fLRhAK 4';>X, Vt'LO.'^'t :)boMlTlAL KLVlfcl': 

■ V.Knr(Iure*T,!Jl5) (Cki\:iM( K ) ,K= 1,6 ) tLK 
'■ilb FOiU'AK / ,tUX, 'CUURoi. , • ,oAi,5X, 'VbLU^ifc l^;L- SIj-I 

•j'jv l-UPN;\T( /,2^»X'FvLlL, f\G/b - blGMt-ItS TH.'^ T STOJLjVT jlV ,iLT iJ-iKll 

2/,3l.X'6Urt. - SIGMPieS THAI STUiVLKl UIO SbbMT ^■',ATi:.U AL b i-Cr. PaUCc 
3Sl>lko' ,/) 
V.i<.lT!:{ IDTPf ,b3G) 
:)300FUK;-;rtr ( iOX, 'STUOtNT* , IbX, »Cf.K PKe.' , ^'(3Xt« STOLY* ), 
I* AS^iG.\ ho.Mfc PuSr',/, 

,:i7X,«rLbT GOE(l) uOtlZ) yOhtJ) GUfc(4» GUtCs)', 
Jl IX, • .'.'GhK TfcoT') 

U-J 30 Lu !<;03 = l,^b 

kcAt( lbTu;3K»K.STD)SIDKCK 

IFCKDRUP.eiii-iJGu 16 iU3'J 

Call oL-TCfiK(CSN,uUrCHK) 
OWki rF.( IuTPT,:)2U) {S10i\,!'.C( Kl ) ,Ki= I, 13 ) ,CSi\, ( GUTPur{bU!CHK( i<2 ) J , 
iK2=l »S) 

GO TO 10 70 

LO^u -WslTLC lLrPT,540) ( SIU.X.Mf: ( K I ) , KX= L , 1 3 ) ,CbK 
Lu70 IFCKSTD.Gfc.isINriL) GO TU jOOC 

KSTO=KSTOf I 
3010 CGK'TTNUt 
3000 CONTlhUL 

if ( tKl'.KU.Liv.C) ru 99v; 

LN=tWGL 

GO TO 2U70 

520 ^Gf<P.AT{iX,12A2,.*.l,6X , I 3,2X,9 (A4,^X) J 

'iksj FOK.Ur ( lX,12A2,Ai,6X, 13, • STUOfcNT OROPPED') 

GiN'O 

SUBRCUTlNll K£P12 

i N r fcGha*2 STD8CK ( t)5 ) f ST tmb { 13 ) r Cr<WK( 6 ) , M NF IL , HI ivCnS 

COUlVALcNCfc (STDNKEdl ,SrDBCK{6) ) 

UAlM (,sPrC, lOVP I, iSTOb, IAlHSY,iPG£/l,3,9,12,l/ 

. . _ . _ ... . ...... , . _ . . rf^ _ . . 



FILMED FROM BEST AVAILABLE COPY 



ill V. Ur.Cl: 'jT; f l.'-iL'a \A ,1 I lu 

; M»y I Iti, TL, lo ) f.P, (cKf.:' { .% ) f !< = l T'> ) 

V.ALL »- cAu ( r , i. vf. J 

•■••xl ( i: ( luFPl ) {CKi\.M(K) ,.-v-L,o ) 

u'. liOU K.iyU/'i J-= 1 J ic 

•N L ( [ S T >;/u ' J J T I. ) .> Ti. .,'C 

Tir( I'T ,3 I':) {^{oU'MAf^P.) jKi-i, LI) , { ^Ti,„C.- 1 , ^ J ) , ^ f ( 

II { JSTJ,C : .'. t.st- i i. ) 00 fi. ICCC 
JjJl) = J j ] J+ I 
.IIU-.., ...G'-jriivUL 

10 Fla -a-K i2,/_//v,o/.') 

O'.O rtl ( lOXt • STUbt:\ T ' , LAa, • aCauI: «n Y • aX , « C.:.UKS^ / j i JX, 'k.J. ' j Lu,, t 

I'bri-.M,.' } 

r 1. 1 Ui. \ 

SJjiiKoOT ) i^'L r! LP I'M 

Ii\rLuir'.-«*2 k9 tLiij i>l 1 bCTCT..'T t ..-H » J STl- , M-RC.-^ , ] ili"!^ Tsi>Tj,\i^ 

l l:uf;i<*2 S rO.X'Hc ( 13 ) ,LUTPOr { l,i ) 
LwUlVALCr.CL (JSrUrSTUNL) 

I.^T} GlK IhPU./ L/,i.arPI/i/,lHhSPT/^/tiAl;-iiY/ u/ 

jbT(;=i 
{kp r=.i4 

i<n.-=o 

i\i NML=1D 

.<LAj^( KJPrCiC) RP»Lr.,ST,3v.v (TP t J ) t J= 1 , ) t ( CKNA< ( Jl ) , Jl~l ,o} 

CALL HL-DKl;C{Kp,Lfv,ST, '' ',CTyT,i:h) 
liM .-H.NL.O) 10 9^/9 

Call SUL-.«iT{TP, ST) 
CALL CUi'iAVL 

Call GLTKhC(KP,Lf\,RLlv,^iiif-lL,wiKCKS,tKKb) 

CALL GRPSr 

CALL .--icPijSCCK^M) 

JDU^.2=(iiINFIL/4f))+i 

iiOO JDU«l=i, 
CALL HtADPGl IKPTylPGE ) 
hKATlK KjTPTtSIOJ 

AKi rE( lljTPr,bi:>) (CkNKlK) ,K=i,6l ,L?i 

hXlTE( IU7PT,50i) 

kRirh(3,5'iO> 

UC lOOu JuUy^=L, 'fb 



FILMED FROM BEST AVAILABLE COPY 



CALL oLTKbS( J STC,^rD\M[-T*JuTl-Ul TNL;<Ur', I LlTCT / 

CALL GcTCUHlLUTPoD 

1 Tl ( ICTf'TTS^C J ( Srf I.;-*!- ) ,^^=1 , 13) f f L^j. ? (<.urPLT ( \^ J , I.,} 

io3L W-.f 1F.( IlTPT^^^C J {l^Tt.*/!: iKt:) i , 13 J t STL/:^J 

TO IC?U 

L070 J::>li;*vi»-..^i:\ML J CJ ilOO 

10 c 'J u u >i r I *<u u 

JJUu Li-^;-L»\ 

^Uio C««.i.r lI.Uc 

10 r.jr.SAKi^, 7X, 3 ia,:^llT^^X,oA2) 

14 ^^uf..\AHiO{ ib, 13) ) 
pOl FsjK.* ATI I ho) 

:;iU hJ.s>.Ar{ 34X,«-*- iUoIVioUAL V»^Ll^:1: JTaTI^»ICS 'i^i^s^* ) 
•^^i; FuRy 4T{ LX,i2;^.£TAl,dX , i 3t L 3 { , 14 f » . M ) 

^30^hGiN.\.Ar { 3jXt"A6S. i<£:L.»flOX, 'P.ST* fiOXr *AiiS. .m^L* C.X^AV* 

^LoX'STULiE^r' , 1 7Xt'CS^^ C/^Pii^ PcJ^F. Pc^vh* PtKr. HkbB, TsiST' 

't3-^X, » [i<t."GX 1»\u£a DhV. ULV* ACr:. aCH. ACn, OLV* »t 
:?*f;ev* ACH. ACH. ACH. ACh.DfcV.M 
t>^C FiJR>AT{ IX, i2A2,Al,I3»« STUOcNT D(<b?P£0» ) 

5f500FuR?^.AT(lX,L2A2,Al,I3,oXT«TnIS 3TUC&i\T OGtiS KCT HAVl AUY iLbl-^ JK V 

LATtKlAL TO 6£ GkACEO'J 
^ RLTUSK 
Li%C 

5dbKoUTiUL C^RAVk:{i\f} 

iXTc G tK -2 tJ U r PUT { 1 3 } , C u^hSL { 4 ) t Cor^N L ( 4 ) , K F , C S.\ 
i r\rLui;k=^2 Li"^TCK;,i-i{6 ) 

Ii\TLGER lNi^TC/1/ , I SCRA r/5/ 1 1 ?U?.H/2/ 
RlADC iiVPTC, it)) LK 
Lb r;jKMAT(70X, 13 ) 

DC LOCO KCSW=1,NF 

RtALM INPTC, 10) CSiM ,{ CU.'^SL( K ) ,CUK,NL{ K J ,K=L ,4 J 
iu FGkKAT{ 13, 4{ £5,13)) 
JSfv=CS.\/l 

WRirtd^sLKAT" Jil^) CSit ,{CUr^SL{K ) ,LUKfsL( K ) ,K=i ,4 ) 
1000 CGNTIiSUh 

fcivrkY &LTCU^:(CSi\,OUTf>Ur) 

fttAD( ISCRAT'JSN) CSNt (CUMSL{K),CUHML{K),K=1,4) 
Do 2000 ^=i,3 

CUHSL{K)= LUriSL(K) 4^ 00rPU](K+4) 
CUl^ii\[L{K)= COf^iNLlK) + 1 

20 coNrrKut 

CU.MSL{4)= CUHSL(4) ♦ UUTPUT(<)) 
CUHNL(4)= CUi^NL(4J + I 
DU 2010 K=:iO,i3 

yOlPUriKj^=CUMSLJA-?A/^^^^^ 



FILMED FROM BEST AVAILABLE COPY 



III :>^U-*Ll bl; fLi';L».J Lil.J 

i--LruKri 

-v.s I r fc ( I P U; ir. , u ) { C h Ai ' { K i J , K I - I t e 1 , Li\ 

1' Vs^LUMh .0. ',13) 
JGO& Jrf=l,iNF 

SCiOO CO.\TiM>c 

S-JiikCU I I i^c Cfc r Y.LC ( K P » LN :,KLi\ ^ , aC 7 C r ijT T c C } 

l.^r;rCr..^>^2 KpfJvF,i\C,CT::T,L4^ 

fi\TLi,ci uS(i35,iil,uC{ li'b) 

I Mf vjfcK'-2 GKAC tKLi>; »C3J , Hbo7i^ Ir ^cC 

iC iOGO t^u^^i, Li 

100 G C T i i\Uc 
2000 CusNlTIivUc 

IF{lG..\B*CI GQ to 20iQ 
Call CHbCK(CSr^,r<TpTkSG) 
i j^O=u 1 C ( KIP f 2* { K bu- 1 J ) 

GC lu 200u 
2010 CJMifvUt 

DC 22Cw KST=LrNr 

i^ALL oETCHKlKSTrublCHK) 

ui> 230U KDl = L,-:f 

IF (ourCHi\{Kji ).!::;. i) »jC{KST>=oc{Ksr j+i 

23G0 COi^iflNUh 

if- (riC(KST).<^r:.CiOr,.A;^O.CC{KoT).hc.O) GCCK^r }=-2 
22 OL) CuM Ii\Uc 

10 hOKHA7( IXt201oJ 

V. V'PKlABLt .t;LLGCATiuu l-Cft GROUP ST/iTISTICS 
If^TEGeR GRPSTT(7,4) ,JDl /) 

iNTLGbk*2 Src.HNht l&S, l5},bTDBCK(6bJ ,SN(i3) ,CAPir\,oTr;ISO 
l-,^UiVALbi\^C£ (STOJMO, STOoCK ( ^ ) ) , ( CAP I FUdCK { 2b ) ) , (SN,STGbCK(6 ) ) 
WT = 3 

br<psrr(KGT,i)= 1000 

GKPSTT(fv»GT,2)= 0 
uRPSTT (NGT, )=- IGOO 
0RPSTT(NGT,4)= 0 
3000 CiJMliWUt 
lr5CK=9 

UG 2U0 K9'=UNF 

K&An(iBCK*KS>STOBCK 

n^iSylMi^m iZ^X^uO..!! hCLSlONUlB-JL _ - - - 
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ERIC 



Al'-.S III SCOKCt S7«H:MCWr Llifli.u 
I :l.i^C» i ) =CAP IK 
S T U i- '•■■:( o T J ».< ci ) = b it ( rC b ) 

jj Ir I ( Ko ! ) » c .iJk-UC (Ki> I i, ) . « C ) vjJj Tl 2lOu 

e ci(K.>ru,2) = ViJSCUSrj, IL) t-L.5i i^ilL, LL } )/ {y.T+l ) 

Cit f 0, 7 }= (Cb{KbTi., :) +C5{ s-oTu )/i 
jj Oi(-.5Tci»3) = t.5{'\3TJT^:)-o5( Kb Fi/,! ) 

I vj'j( .sSTC ie ) -u^ (.^ il Lt K-oTl, ,i ) 

JGLO .Vol =1,7 

J ^ { «< ) --vj b ( A S 1 o » G r ) / L 

G..PSTT(kGr, I )=i'.i.,G(Gs'.^'S rT(.\tTT 1 ) , JD(WGT) J 
C;<r- STT ( .\*oTt 5 ) -.*i«XG ( Gi<PSTT I KoT , 3 J i Ju ( ivG i ) ) 
Gi^.PSTT { r-.v. r , 4 ) - ohJ>5Tr (i.GT y'-. i + JO ( jN'CT ) 
3 Ifvsj'c 

1 C U i'. i I A'b £. 

uv, j>030 fvol =i, 7 

GRf'STK j,2)= LKPbTT{2, >)-3RPSTT( i,21 
GkHSTF (^,2)== Grti-STT (7 , 2 )-GR»^ST f ( i ,2 I 

l;S(KSTO,^)=Go{KSTD, J)-LRPSTT{ J,2) 
c S ( KbTO , S ) =0i { K S 1 D , a ) -CRF ST T { 4 , 2 ) 
3i>40 LC>.i IijUl 

fcAT.^Y n;:Pl5(Ci<.-is'.) 
It'PT^l J 
IPaG=1. 
IlJTPT=3 

CALL H-caUPGI IHPT,IPAGf 
V.kIT&< luTPT, :)10J (CRNK(K),K=1,6» ,LK 
3lOChGKi-.ATl<iOX,»*** VGLUHt oTATISTICS ***',/, I GX ,» CCUKSc , 

.1 1 0 X , * VOLUM h i\ u . S 1 3 , / y , 2 3 ? , • « I K I «U K • , C7X , « M E At\ • , 0 8X , • .S A X I «U « M 
CWft[r::{ l^TPr,520) (GRPSTT ( I , ^D ) , KD= 1, 3 ) , 
i (GRP5TT{2,KD),KD--1,3J , 

I Gi?.PSTT{3,2J, 
I {GKPSTT(!ii,KD),KC=l,3) , 

i (GRPSTr(6,KD),Kij=I,3), 
1 GRPSTT{7,2J, 
I GRPSTK^,^) 
^j^OCt-x^r.AK IX, •CAP.idlLITY I«D£X', 126 , 3 { 1 3 , lOX ) , /, 

1 iX,'PfcRPORMAK-Ct IKOeX', T2c» 3{ 1 3 ,1 OX ) ,/ , 

2 lX,«PhHFORHANCh DEVIATION', T39,I3,/i 

3 iA' PnUSLEM ACHieVcf^fciNT' f 26, 3 { 1 3 , 1 OX J , / , 

4 iX'POST IbST ACHIfcVEMeNr* , I26,3( 13,1CX) ,/, 

5 IX, 'NET ACHIEVfcMLNT iNDtiX*, T39,I3,/, 
o iX,«ACHIEV£MhNT OEVIATIGN', T39,13) 

tjNTl'.Y GtTK£S(oiTU»SK,iJUTPUT,KukCP, TtSTCT) 
lNrbGt:K*2 UUrPUT(13),JST0,K0KCP,ri:STCT,S.M(13) 

OU. 4.0.0 iI .KXe.L,.9. . . - - - - - 



II 

'A 
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ERIC 



rfc3TCT=GC( JblU) 

5o3:< Gu r I i\ ^ Gr; A ^ fc { Gi\A G t f<L s , C bi\ , f. S^r , k T P r 1- C; ) 
C TnJ^ Si^CrioN of- So^irx GKaOE: kfc^Ob in <^h5P« hkCu;<U Sc.rOCM.iALY 

i>.J>LlCif i.M, 0hH^2 (K) 

(mT. Jciv f iLi:::>( v ) / 12 , 6 , 3 ^ G/? I KnSi- F/^/ , iCxTPI /i/ 

livTfcOLK^^ riCc<C { 12,4 3) rHK{ 6t>) ,X3SPR(f:3 J ^/^N:.- (4^3 ) , r'UiMa !< 12 ) , iP( '3) 
Li/i uGlk-'^ O.N/4CtC:3K7i^SwTKTP,LA.-»LA,ST,Cri;<T,Lri,i\LJ\ 
l\rr:JhK^-2 CLUi\T,TP£,ui\G,Riv.HT, ITkST,:SO,S;i 
I Mco -2 SUiOf.C , SUNGki; , WUMKSP { 12 ) , HORCG { d ) 
r-.,UlVALl>Ch (Kfc3P,<( ib J ,ANS{ I) } ,( CNC,HR( i^) } 

UkAU-C 
CCUNT^O 
C i<t-AL; ncSPuNSfc TAPt 
3000 AlAl.{ l.^LSPTrcr<tJ=99^v5XLSPK 
.<Lh=Rc5PK( I \ 
C TcST rO:-^ Pj^lPLk VOL- hC* (Livi 
iF(LK-i<Liv} 3Ki2C,:JolC,3000 
3C10 CC:\TlMjc 

CSA^f<fcSPR(2) 
KSO^rcSPK{ J ) 
P^KtbPK(^) 

i: TtilS LCUAnuit MAPS A Mi:LD INTG A l-L H.I&LO 

Q{\(j=KUMCT{ rPh> 
L cAuCCLATu A NUMfciaC GRAOt rCR TcSl 

OG LOGO K=1,G2'^G 
C rUM^FiGu SU30RD G^AUt:£ HfcSP* USIK-;; AFPRUP. ALOO* 

ITCST- Su5GK0(;rrPtHDKClTPii,K) ,Ai\S(K) ) 

CGUi\T=CbUwT-HTl:Sr 
ICuO CGuTI,\Uh 

iF(KP-cC.L3-UK.kTP.Nt«4) GO TO 9<59 
Du 3030 K'-l,uK'U 
HDKCO(K)==HURC(TPE,K) 
3030 LGHTINUG 

•o/<AU = 5UKGf\G(Wi^G,NU«RSP( FPb) ,HDKCD,ANS) 
*?v9 .<LTUR^ 
C £G=l IS ft£TUr^J« CGOc FOk fci\U OF FlLli 

^02C Un\l liSUh 
C i:.u=-l CjuE DlFFtKfcKr VOL* NO, 

bACKSPAch ir^ESPl 

C 
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/M' iTl ( lwTHr,.t>l5) 



8 Ou 2010 :< 5=1, -id 

u rh£b LQuP hLiXHS rtAthr; ;UiLOKu ;:N0 STCt^LS 11 
U ANT; KL-MScK Oh .^.UlSTJUi^^ 9 Lik TIIbT ( iMJHUT ) 

ir( JP{Kr)*LL-C.0u.rP(KT).oT^5) TO IbOG 
IF( rp{Kr).i\b*4) GC TU 11)3C 
1320 I'^AO Si-i^i,ST 

x*:*3i> uaLL get rT{H.<,LWt Stir rp{KT) ^i-ILfcbTtH) 

i^{Ui*rsM:.0) V MLTtilU'Pl fbLQ) <rh , LN, TP ( KT ) , Sl» 
1P{l^rp(KT)+2-{SC-L) 

H*jKC{ TPhffvl)^ HK{i7^KL) 
l":>Pv> C .:r<Ti;\u:r 

LTOi=CTwT*-l 

i\UMHSP(TPi:J^Hfi( ID 

n-{ iP(KT)*»y!n.4) GC TU iiiOC 
Ly-^U CursTlKUb 
ii^Qkj CGi^TI^Ut: 

St T^J?.U 

ISI2,« LlrSSO^S.* ,12, » TYPi£«%I2,« ScGilbfiU S 12) 
::;15 rCSMAKlHi) 

UvThCiiK^^2 0tH(48) ,A( AS) ,MtK 
I H lKTii0fcI^^2 IFASStSUHGKOf ICORK, i\P , 0( 1 i 3 , SCOkR , SNP , i iVCuKK 



OC 1000 K=1,Q 

lCO^ft=iPASS(H{K),A(K),NP,D) 
bCGftR=SCDRR+iCORk 

LOGO GliJvH WUt 

lNCJKr<-=SfNiP~SCORK 

SUHuRD= (SCURR*100-{Q^aNCOKR*lOO / {N-Q)))/C 
Kb TUKN 



* B 



I'OHi'.ATCMOii) 
SL(;Rk=0 



li 



PjiASfc H£PTQ015,k&PTC001 
// cXfcC PFuRTRAN 



ERIC 



SCttKUuriNt ALP 1 13 
IJ'.PLICH lNfCGfcR*2 (K) 




FILMED FROM BEST AVAILABLE COPY 



ERIC 



I. ItOf.r^ oltMCK (6b ) , SrL'\f-;c ( 1 J J tLS-K."^ (o ) ,TP( 
{ ■.•rc.oc.<*2 UoJCK-xt LO),i.TPl ,isH'A,t>.i-T,CAP[.'( 

I.sTrJLK*^ b'Jt.L'Ul (^)/' 't'^-v*/ 

i T ii G I i < I w P r t / L / , i L 1 P r / i / , I :^ t- S P T / 4 / , I A i ?' S Y / i 2 / 
UtoUf VALtJ-iCt { 3TUi\{'.c ( i. ) ,ofUcCK (o) ) , { STOi\(..,:>rL)uO.\ ) ) 
^wUl VrtL cNCc ( Kl-ivLP, STLiJCK{ 24 ) ) , { U.AP i N , iTC.iCA{ 23 ) 1 
two i VAL Li\C £ ( SfcC r { i ) , S f JtiC K ( 42 ) ) , { Jr^ij? ( 1 ) , S TGuCK ( 44 1 ) 
IHPJ=L'J 

C -^.[-.'Ao IN THt i\'0- Uh STUO£i\TS limkuLLH:') li^J li-lt, CijU«<Sl". 

lAIi-^SYU) MNFILftaNCRS 
C r.LAL l!\ Thfc KirPUKT SrQUtST CAkv^ 

t%'cAu( I.NPTt, iv.- J KP,L^,S^ tSC, t fr-C J), J-i, I)) , ( C.A.\.-!{ Jl. » , t ioKiM 

Ii-{Li;.liw.l) CALL Clji;0L5(.vli\i-iL ) 
{.. V!tI5 LOcP Rt;T."<(hVFS CuhM. AV£- DATA hkuf'. SCORt rILfc 

0'- 30 lu KSTJ ~ l,Nl,\rlL 

Call o h r c h { k s t ,j , l , p I l. m , h h u k 7 & k k c u .^^5 1 

I'r {cft;^CUK.L-Q.-i} GG fu 400C 

U'J iCiO L 1=1,2 

PlLK^Sl j,Ll) = PTOU.'^{Ll) 

.-ivvLT {i<STO,Ll ) = hWUbf-ill) 
Ji-jlki Cbh] li'vUc 
2t>70 COMli^Utr 

CALL kS:;PCkP) 

JSVC=l 

(. ilL.'-.c AKPvAYi AS XtLuUikCD. 

LL 2u20 r(;jUf^7=i iL 

i;urCT.\{K0UM7)=G 

:iU 202 G KJUM'j^itlC 

.3 UT p U T { K U UM 7 , K U UM S J =0 
<i.G20 CCKl lf\'UC 
C SLT UP nc-AOEK Aki^AV 

CmLL HtORcULM, ST, TP,CTQr,fcH) 
C ScT UP iTUDLKT SUeKITTAL CHiEC.N 

CALL SUBMIT ( TP, ST J 

Ki\J:AO=MNhiL*CT'ST 
L THIo LOuP SLACS Ih STUDENT KhSPCMSi: FaPL, 

C ALb'w GRaDcS THb Tl^ST AiviO STDRtS KtSULT ( OUTPUT ( CSN, I ND ) - 

liU 2000 K0U!H4 = l,KRbA0 

CALL GHAi)i(uKAC,KLf\i,CSf\',P.SG,KTP,eo) 

1F{ cu.NL-O} CG TC zOlC 
C CHhCK cNTSY PLli'^T IK SUbiHT, Htkc ht IWUlCATg T.HAT STUO, HAS HAHUtO 1.' 

CALL CH£cK{CSN,kTP,KSG) 
L FUfvCTiUfv FOK OUTPUT ARRAY 

i.\0-=iJ10tR iP+2*<RSG-l} ) 

U<jTPUT(CSN,lKD)=OkAU 

i;UTCT\(CjN)=OUTCTf\!(CSN>+i 
20u0 Ci-NTIi\Uc 
2U10 CC(U {NUe 

JDUi<!2=(;UNf-{L/45) +1 
C THIS ULOf.NS THh LdUP FOR THh OUTPUT CF OKADhS 

UO iiOO J}jU.S1 = 1,J0U/<2 

Call HEAiiPGdRPT, IPGt) 

wRirtC ILTPT,510) 



FILMED FROM BEST AVAILABLE COPY 



Alr-.S HI -juukCl oTATcJ'.i-fNi' LlSTlr.G 

v.-^i rC( 101 FT,bOL ) 

rii<J !'.( Il.THT, b'iG) 

bO ].OGi> J'uUhi'i-Li'ii 
C KLAU iTUi.fcK'l eAAKLKLUwU FfLi. 

Rt:Au(9' JSTu) b i'CblK 

{FfKJkUP.iiv;. 1 I Go IC lu30 

ir-(LiJTCr(\( SlCkC ).Lr:.ijJ u'J lu .lu-'iL 
I, flwG OuT l\hAT THt STbOhr.lf HAS SUiii- { ( U-Lf i-'jH PKi>t.LSS t,\G 

CALL LLl thK / l-irOi^ujOCTCrik) 

L lALCULAFl THfc iui-i Lf- mLL GKAOt 
UC- Lu6u KAVL=2».-j 

If- {UUTCHK(KAVC).cv. II C1PI=C7PH-l 
C uALCULATii Pkfcf-. iivGi-X {5U.'';AV!;j 

SUMAVt=SUhAV:-.+CurHU1 ( bTu^u,KAVlr ) 

lF(CT>I.bC.O) CI!>I=1 

■JUTPUT ( IDlvG, LC J = bUr'AVh/C i P f. 

PTLi (STooiL, I )= P ILT{bTt)!'iO, i l+OUrPUU STUivO,9 ) 
HwLT{ STO)\G,I )= hWLT (S fOrsO, I )+buTPUT { S TUivG ,3 ) 
L t.>\LCULATL FHc KEi.'U .? KtO AVcRAGtS 

r PT = L 

IFlOUTCHKta) .fcC.2J NHrt=0 

IJ-(0UlCHK(9).cii.2) .\PT=0 

HbtrC STDN6,2)~hlvLT( STDNG,2)+NHk 

PTL T( Sl UNG, 2 J I LT ( STO.\C, 2 ) i NPT 
t. LALCULATl: CUK-AVt- i]tLG»( 

OlF(riWLT( STU^iU,2i.cO.O.A!\D.PTL7 {STUi\G,2) .GT.U) 
lCUf:AV = PTLUSrDN0,i)/PTLT{i>T0N0,2) 
0 i !- ( PT L r ( S r , 2 ) . EU - 0 . AND . H ML T { 5 TONQ , 2 J . G r . 0 ) 
LCUKAV = HWLT{STGNO,i)/hun<STDi'iO,2) 

IF(HWLT(STUNu,2 5 .CT.O.ANO.PTLK 5TUN0,2J .Gr.O) 
iCUMAV = 3*HK'LT{SI0f'iO,i)/{HWLT(STi).NC,2)-10]i- 
2 7* PT L r ( 5 rOrtO , i J / ( P TL T ( S TD.nIO , 2 ) * IC J 

c Output !\cr»al l£.->!E of statistics 

CV»R1T£( ILTPT, 320) ( STUNHci ) ,K4= I , i3) , StCT { i } , ShC T ( 2} ,okGP(2) 
2STC.\0, 

i{bUTFUT{STDfN!U,K4) ,SUBOUT{0UTCHK{K4) ) ,K4=i, 10),LUKAV,CAP li\ 
OiF(iGKPT.Nt.O) 

IWRITei IGKPT»521JLf^,(ST0i\Mfc(K) ,K = l,i3),SECr( i),SECT( 2) »GK0Pi2) 
2STOi"vsU,{CGTPU7 ( STDf'<0, K4 ) , SiiBGUK OUIC hK { K4 ) ) , K4=i , 10 ) , CUHAV , 
:iSobGUI ( L ),CAPli\, SUBCUT(i) 
Gt TO L070 
L <"bTFUl STUu. OROPPtu LINE: 
1030 WRITe{ICrpr,540) (STDNM&(K5) ,Kb=l,13),brDNd 
GO TO 1070 

104G WK I T £ ( 1 G T PI , 55 0 ) ( STONHt ( K 5 } , K5- i , 13 ) , STDNO 
1070 lf-(JSTO.Gt.f^.JMFIL) GO TO 1100 

JbTO=JSTO+l 
lOOU CCNriNUt 
llOO LQhTimt 

IF{£G» 204U, 2040, 2060 
2040 COWTlNUfc 

CU TO 2070 



FILMED FROiM BEST AVAILABLE COPY 



•^.ii-l, 1.11 SousCh ST/.lL.MLri! Lli^IhG 

UC iU£j i\STL)= I ,;>; {fvF IL 
lib JOiO Li = i,2 
P7DUK(Ll) = FTLT{KSTJ,Ll) 
hif^Ou.-.{L.l ) = HWL 1 10,11 ) 

CALL L 0 0 C i; ( K S T L , L !\ , P T U L ■ , H -.-i U t i 

IF( IGRPT.NL.J J tUU f lit IGKPF 
(jo to --J^V 
OUO -.RITL{ luTPr ,5000} LK»Li\ 

OUo'^rOK;-:AK « IrKKoK *** VULUt'.L iV<.;.,',l3,' HAS Lutis PxLCL S.^ sr;: 3Y Ni:h> 

lOKl Lb* KhPOf-.r RfcwUtST TtK.v.ii.AU-G-' t/t20X, 'To uLs-.cF.aT ?<fcPUU ii> 
,^fl.!ft VULo.Mr iJG.,',[3,' kc-^UfciT A KcPUK r hur. VGLU.'.c UKu') 
I u r <j R :\ A r ( i , 7 X 7 3 i f 5 1 i 1 9 X , o A ^ . <3 X , 1 «i ) 
1.:, l-ORi--,;I (o2X, 12) 
14 F0H.-<A1 ( iO( ib, i } 
bCl I-L'RkaT ( thO} 

7iO f Ck^ AT(/ ,bOX, VbLUht: SUf.HAKV ) 

•:.L3 Fi!K:'A r(// ,'«0X, 'CllURi!:, • ,oA2,:3X, 'yULSj.ML i\U. • , i3,/,20X,'hL.ri-, 

IfHb jIGi^IrllES fHAT MJ .MATiklALS HAVt UhLiN SUB^UT^l;D FuR i'Routij 

Uf.o* > - 

J>^Q FOX«aT(IX, 12A2,A1,3A2 . 1 3 , I G ( 2X , i 3 , « . • , A2 ) , 2X, f 3 , ' . » ,4X , I 3 , ' . ' ) 

b-'-'i i-Un.';nf(12,12A2,Al,£sA2,iJ, 12(13, •.»,rt2) ) 

'j-JOChoRi-AT ( LOX, »i rUu£(rr' , L5Xt 'CSsN PKh . ' , b ( j X , • S'J U&V » ) , 
I* ASblGi>: hO/df POST PlIHF. CUfi. CaPL.',/, 
237X,»TE:ST Gb£(i) GuE{2J G0t(3) G0e{4) GD£{b)', 
■JiilX, »ViOK(\ T&ST INUtX AVF. iiN'OhX'J 

;.40 FGXf'AK IX, 12A2»A i,6X, I5,oX, • STUUlfKl OKOPPtO' ) 

tj'jU FCK.MaT ( IX, L2a2tA1,oa, 13,6X, • This 6TUDEiNT DGtS ivCT hAVL A.\Y dATLr-iA 

LLS rC Hi, Pi<CCt.SSF.D« ) 
vs?--! klTUhK 
tNO 

:>Ubi<bU r INfc CuN.) 15 (N INF IL] 

i N r L G e R * 2 !M I W F I L , Z b k 0 / 0 / , C S <N , L N , h ft C U M , V 0 L 
iNThbtH*/. P1LT(2) ,HWLT(2} ,0UK.hy{65) 
iSCORF-iO 

rhlb SbCTlC!\ icKu'S /ht SCiJRc FILL- FOR FRtSh STAKT 
DO IC JSrO-l,,\lfd-iL 
CS(\= JSTO/L 

KfcAul lSCORh« JSIO) DUH.MY 

W K ! ( t ( I S COR i: ' J b Ti; ) C SN , Z 0 R C , Z ERU , ^ LK U , Z t ftO , Z b RO , ( 0 U/<f-5Y ( i ) , 1 = 7 , 6fj ) 

iO CuKTINUL 

This hKTkY FINOS CUK. AVtRAGb DATA 

ALSO CHFCKo FUR UVtK LAPPING RLPCRT KEQUtSl 
L M T K Y G I- T C M K ( C S a' , L K , P T L r , h K L T , t R R C U ^5 ) 
lSCCRt=lO 
JCSi'j=CS.N/l 

RL-AUU SCORE •JCSK) CSW, VOL , PTLT , KKL7 
HKRCUM-U 

I F ( V uL . G E. L iM ) c R RC m=- i 

.-,i:tukn 

THIS CMTRY LOADS UPCATEn CUfM. ^JVcRAGb OAIA BACK ON FiLr: 
fcNTRY LCDCU;'!(CSN,LN,PTLT,HViLT) 
JCSi, = CS^"/l 
KtAD( ISCOKt'vJLb.N} DUMMY 

UK 1 1 L ( I SCUR t: « JL.^k ) C SN , LN , P TL7 , HkLT , ( DUKMY ( I ) , 1 - '/ , b 3 ) 



FILMED FROM BEST AVAILABLE COPY 



ERIC 



AI -S 111 :>LUhCj: .STATi-MfcAr Lltrit.u 
: wKAj£S THl ILST 

^^r^:v.hk h illoI j^) /i^^,6,^^»^i ,c/,ii<i-sr t iwipt/j/ 

i K'Tj. btr;-2 hOKC I I ctnir) f ri;N{6 5^ J ,Kf. iPK{ 6:5 ) ,AuS( -to J ?Mj:^i.> 1 ( ) , I P ( ) 
{/il r^>Li<'r^ CCU/v rPt ,tyNC f i^lbhT ^ 1 IcSI^ St , b^' 
I wULVALr,\cr. ( KLoHk( i6) T Aj^iS( U ) t ( t HkH3) ) 

i 0 0 O K [• A u ( i K h S P r y :: J\ J ^ 9 9 ) K b S K 

1 f- ( LK-^^LN ) JvO , 30 1 U f 30 00 
> CcKTilNUt; 

C This lCJUaFIuN paps A ^"Q MbLL* liWu i-U f^icLu 

^ cALCULATt A NU.Mizisli, GKAJb T-uR TLST 
UL iOOO K^lfuHL 

ITbbT-^ SObGKD{RrpTHtKC( I PL » K) , At\S( K ) ) 

LcCo CCMINUL 

GHaO =^ CCtNJ/Qi\b 

L L-G=l IS >-XTi;!<.v CODE i-QR fi\'0 uJ- f-[Lc 

302U Cl^(\ri5\*UL 
L 

BACKSPACE li^ESPl 

C 

fc^sFi^Y HbDREl(LN,ST,TPtCTQT,CH) 

C 

C rnib StuTlUh PICKS OUT THt HEAufcRS KLwUIRifO 10 GRADb THE lESF 

C A»\D STOkES FHtiM If^ TH£ ARRAY CALLED HCRC 

C 

Uu 2010 K2==L,i6 

DO 2010 K3=lt4a 
HURC(K2»K3)=0 
2ul0 COMINUe 

croT=o 

C THIS LUuP FtrCHS HfcADEft RtCOKD AND STORLS IT 
t PLUS COUNTS TOIaL frXAiMS TO t3E GKADhU (CTCF) 

X ANO. IVUM5ER 01^ gUESW No-Py^ 



FILMED FROM BEST AVAILABLE COPY 



ERIC 



At.-.'. HI olur^rl STMFtlKu.vr LUIf.O . 
!r ( Tt^ (M ) .LL.O.oR.TP (K n .0 r ) TL liuC 

J.,3'J (..ALL ClrnK^'.K.LurSo, IPdxT} ,MLt;b,l:H) 

U- ( .li-Nc.'J) ^itlTcdun^T UI,L.\t IP(fCl ),i>i. 

TPt=rP(KT) + <i*(bb-l) 

OG 1550 K 1=1, Mb 

i-:OKC( IPfcfKl »= HK{ 17+KI) 
15\>:, tbM IfJot 

CTwl =C f ivT+i 

KU«v^l { f<-'i:J-..^;u 

li-dlMKD.Wt.''-*) Cu IG iDuU 
liiAO LC.\rii\UL- 
i'j-OO CLKTIKUl. 

l'»l?t' LESibi^.• , 12, » TYiJc.«,U,» Sfcv;-Ml-.i\r.' , 12) 

SUdKGUTlWt KcPlfc 
lyPLIClJ ),viT&btK*2 (K) 

l.\rhGtK*2 SUbUUI ( i2i ,STONhfc ( 1.3 ) , tHK,-i ( t, 5 , T? ( j 1 
IiVri:GLK Cl/TPUr(i2) ,CSN 
l.\THL>.R*2 lhUf^) fi.lU{Zi/.] ,LLN 
IiVlLGl.K«2 KP,LK,ST,i!C 

iNTtGLR IwPTC/I/, IOTP!/ 3/ , I RhiP r/4/ , I I f'.b 12/, lokP J 
UAI/A 10(2, !)/• •/,LlD(2,i)/» •/ 

l:<PT = io 

C H-i Xtib KhPOrtT KtGUfcSI CAKu 

RkAuC ii^PTClvj) KP,Li>»,Sl ,SC,{ rP{ K) ,K=i,D), (CRMlUK) TK=t,o), iuKPl 
C IHIS ohGfiVS THE LOOP f-U.K Ti-L- OUTPUT uF CRAGhS 
Oi<LAD( 1G;\PT, b2 i ) 

ILu ,(STGi\'i'e(K ) ,t( = I, 13) , ( iOn.,K) ,K=1,2), iO( 2,2) , CS^, 
-i(CurPUT(K),SU6UUl(K) ,K=i, 12) 
3L0U CuNI Ii\Ufc 
LLK=LN 

i;0 600G J = l,2 

DO 6000 K=i,2 

L1U{ J,K) = ID(J,K) 
cOOO Cl.M IKUc 

6ACK5PAU& IGKPF 

iPGL=l 
5000 CUKTiNUi: 

CALL HcAOPGl I^tPT, IPuL) 

•XRITf ( lOTPT, jlO) 

wr.ITb( 10TPT,5 15J ( CHNM( ) , K2= 1 , 0 ) , LW 
«iUTd(iOrPT,5ul) 
WK1TC{ICTPT,53'J) 
1)0 1000 JDiJrt5 = l,45 
C Rc.Au -jTUDtiVr 6ACKGKUUND rILh 
UKbA\iJ( lGKPT, p2l,&^D=999) 

iLiv ,(iTDNr':fc(K),K=l,13), { 1D( 1,K) ,K=lt2),lG(2,2) , CSN, 
2(GUTPUT(l<),SU8CUT(K),K=l,12) 

IriLLN.Nu.LN) TO 3000 

OU 4000 K=l,^ 

ir-nO{SC,K),iVi-..L iD(bC,K) ) GG 10 3C0C 

^}G\^-k,LhA-hh^J. l - - -- - - 



FILMED FROM BEST AVAILABLE COPY 



'J ' . GOV - If <i 

I ( :>Tr^\^»«{N ) If i J) , ( I J( 7K^It^. > » 1L( , 

'jL J ^uK/.aT { / ,i OX, ' ^vt, v^»LUnu -.U/mSAi V ^C'i-'J 
Ilr;G« ) 

3/^0 Fuf</Al { IX, l^A2t>Al, 3A7rA .'-, U ( ^X, A^t ) ) 

t' A^iSUii'^ Hl>"I: *^GST PcKh* CUi. C.APL.",/, 
^J7X,>TlST s:UlL) C^D^A/) oiJh(:>) bUfcCAJ GUtii>)«T 
jiiLXf^^Oi^Y. ]^^\ l:;uCX AVI, [fwihX') 

ILS rC Si. X: SSuL' ) 

// LtiLTYP .\Sb{o) 
// t:>LC LhKCUT 
/ 

wUCli> V:> il bur 
^lPLY Y 
LKD OF DATA 



PACLlUO 



